ganz einfach:
Delphi-Quellcode:
private
meineLabels: Array of TLabel;
[...]
var
lCount: Integer;
begin
SetLength(meineLabels, 10);
for lCount := 0 to Length(meineLabels) - 1 do
begin
meineLabels[lCount] := TLabel.Create(Self);
meineLabels[lCount].Parent := Self;
meineLabels[lCount].Caption := 'Label Nummer: ' + IntToStr(lCount + 1);
meineLabels[lCount].Left := lCount * 50;
end;
Die schleife demonstriert erstellen + Zugreifen in einem. Nach gebrauch natürlich das Freigeben nicht vergessen.