Wenn ich Dich richtig verstanden habe, ginge es so.
Dazu mußt Du jedem Label den Tag als ID setzen.
Label1.Tag=1
...
Label51.Tag=51
Oder die Funktion umschreiben und die Zahl des Labelnamens als ID verwenden.
Delphi-Quellcode:
...
var i:Integer;
lbl:TLabel;
begin
For i:=0 to ComponentCount-1 do
if Components[i] is TLabel then
if TLabel(Components[i]).Tag<=25 then begin
lbl:=FindLabelPerTag(TLabel(Components[i]).Tag+50);
If lbl<>nil then
TLabel(Components[i]).Caption:=IntToStr(lbl.Tag)+'...';
end;
...
function TForm1.FindLabelPerTag(const Tag:Integer):TLabel;
var i:Integer;
begin
Result:=nil;
For i:=0 to ComponentCount-1 do
if Components[i] is TLabel then
if TLabel(Components[i]).Tag=Tag then begin
Result:=TLabel(Components[i]);
Exit;
end;
end;