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

[MuTzE]

Es ist nur sehr schwer zu erkennen, was du vor hast. Also frag ich mal, ob ich es so richtig verstanden habe

Delphi-Quellcode:

var
 I: Integer;
 aString: String;
begin
 for I := 0 to ComponentCount -1 do
  begin
   if Components[I] is TLabel then
    begin
     aString := IntToStr(I + 1) + ' - ' + StringReplace((Components[I] as TLabel).Caption,':','',[rfReplaceAll]);
     (Components[I] as TLabel).Caption := aString;
    end;
  end;
end;