Um das Array zu füllen ....
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
For i := Low(Labels) To High(Labels) Do
Labels[i] := TLabel(FindComponent('Label' + IntToStr(i))); // so oder
// Labels[i] := (FindComponent ('Label'+inttostr(i)) as TLabel); // so
end;
(spart Tipparbeit
)