Dynamisk oprettelse af CheckBox

Jeg tror du har glemt dens forældre ;0)   

CB[i] := TCheckBox.Create(Form1);
      CB[i].Parent:= Form1
      CB[i].Left := 10;
      CB[i].Top := 60+CB[i].Height*i;
      CB[i].Caption := Edit1.Text+ inttostr(i);
      Form1.InsertControl(CB[i]);
      edit1.Clear;
      Edit1.SetFocus;
    end;

Dette virker hos mig

procedure TForm1.Button1Click(Sender: TObject);
var
  aCheckBox: TCheckBox;
begin
  aCheckBox:= TCheckBox.Create(Form1);
  with aCheckBox do
  begin
    Parent:= Form1;
    Caption:= Edit1.Text;
    Left:= 20;
    Top:= 20;
    Checked:= True;
  end;

end;

Det var ikke helt det jeg mente Morten_S, Hvis jeg trykker flere gange på Button1 skal den oprette flere CheckBoxe ( én pr tryk ) under hinanden og indsætte Edit1.text som Caption i den ny oprettet CheckBox ;)

Skal liiiige spise.... Så vender jeg tilbage....

Jamen det gør den også, prøv følgende

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  aLeftPos: Integer = 10;
  aTopPos: Integer = 10;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  aCheckBox: TCheckBox;
begin
  aCheckBox:= TCheckBox.Create(Form1);
  with aCheckBox do
  begin
    Parent:= Form1;
    Caption:= Edit1.Text;
    Left:= aLeftPos;
    Top:= aTopPos;
    aLeftPos:= aLeftPos+10;
    aTopPos:= aTopPos+10;
    Checked:= True;
  end;
end;

end.

Du er en guttermand... Det virker som det skal