Fomular mit Button zur Laufzeit erstellen

[Rifman]

OK, die wichtigsten Abzüge des Kodes , was das Problem betrifft sind wie folgt:
Der Aufruf im FormMain

Delphi-Quellcode:

var
  FormMain: TFormMain;

var
   FormArray :array of TVisualizeForm;
   
implementation

procedure TFormMain.StartBtnClick(Sender: TObject);
 var
   i:integer;
 begin
    for i := 0 to MBListBox.items.Count-1 do
    begin
     FormArray[i] := TVisualizeForm.Create(owner);
     FormArray[i].show;
    end;

Das Formular zum Aufrufen

Delphi-Quellcode:

type
  TVisualizeForm = class(TForm)
  procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  VisualizeForm: TVisualizeForm;
var  
  button:TButton;
implementation

{$R *.DFM}
procedure TVisualizeForm.FormCreate(Sender: TObject);

 begin
  button := TButton.create(owner);
  button.left:=10;
  button.top:=10;
  button.width:=17;
  button.height:=17;
  button.Parent := self; //VisualizeForm;
 end;

Ich bin für jeden Tip Dankbar.