Oder so, wenn man die Label desöfteren braucht:
Delphi-Quellcode:
type
TArrayLabels : TArray<TLabel>;
end;
var aLabels : TArraylabels;
TMainForm.Create(Sender : TObject)
var oLabel : TLabel;
begin
aLabels := TArrayLabels.Create(Label1,Label2,Labe3, {...,} Label526);
for oLabel in aLabels oLabel.Caption := oLabel.Name;
end;