Performante Lösung gesucht (Labels füllen)!

[alzaimar]

Delphi-Quellcode:

Var
  lb,lb10 : TLabel;
  s : String;
  i : Integer;

Begin
  For i:=1 to 14 do begin
    lb := FindComponent (Format('Label%d',[i])) as TLabel; 
    lb10 := FindComponent (Format('Label%d',[50+i])) as TLabel;
    s := StringReplace(lb.Caption,':','',[rfReplaceAll]);
    lb10.caption := Format('%d - %s',[i,s]);
  End;
End;

Nachteil: Wenn Jemand die Komponente umbenennt, klappt das nicht mehr.