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

[Grolle]

Hi,
folgender Code soll mit ca. 25 Labels ausgeführt werden:

Delphi-Quellcode:

var
s1, s2 ...... : string;
begin
  s1 := Form1.Label1.Caption;
  Label51.Caption := ' 1 - ' + StringReplace(s1,':','',[rfReplaceAll]); 
  s2 := Form1.Label2.Caption;
  Label52.Caption := ' 2 - ' + StringReplace(s2,':','',[rfReplaceAll]);
  .................
end;

Gibts dafür eine performantere Lösung? Ich wüsste im Moment nicht wie.
Viele Grüße...