Forms Dynamisch Erstellen

[Hansa]

Was treibt ihr denn da ?

So erzeuge ich 1000 Forms:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    frm : TForm;
begin
  for i := 1 to 1000 do begin
    frm := TForm.Create(Self);
    frm.Name := 'Form' + IntToStr(i);
  end;
end;

Was hat da ein Array, SetLength usw. zu suchen ?