Unendliche Formen erzeugen (wenn nötig)

[Pseudemys Nelsoni]

hallo, irgendwie funzt das:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var myForm: Array[1..10] of TForm;
begin
  myForm := TForm.CreateNew(Application);
  myForm.Width := 200;
  myForm.Width := 200;
  myForm.Show;
end;

aber nicht