delphi динамическое создание объектов

Ответ от ?[гуру]
Labels: array [0..1] of TLabel;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Labels[0] := TLabel.Create(Self);
with Labels[0] do
begin
Parent := Form1;
Caption := 'Label0';
Top := 0;
end;
Labels[1] := TLabel.Create(Self);
with Labels[1] do
begin
Parent := Form1;
Caption := 'Label1';
Top := 20;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(Labels[0]);
FreeAndNil(Labels[1]);
end;