Unendliche Formen erzeugen (wenn nötig)

[rayman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var myForm: Array[1..10] of TForm; 
    n: integer;
begin
for n:=0 to 10 do begin 
  myForm[n] := TForm.CreateNew(Application); 
  myForm[n].Width := 200; 
  myForm[n].Height := 100; 
  myForm[n].Show; 
  end;
end;

!