انشآء Forms عند الضغط على زرButton ؟

[STRELiTZIA]

السلام عليكم ورحمة الله
لم افهم الغرض من تعريف array ! هل لغرض اعطاء رقم تسلسلي في الكابشن للفرم المنشأة فقط ام هناك سبب آخر ؟

طريقة اخرى ابسط :

PHP كود :

var
  Form1: TForm1;
  i : integer = 0;

implementation
uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var Frm: TForm2;
begin
  i := i + 1;
  frm := TForm2.Create(Self);
  frm.Caption := 'Form : ' + IntToStr(i) + ' created';
  frm.Show;
end;

end.