Unter der Annahme das Label1 nie breiter als die Bildschirmseite werden kann:
Delphi-Quellcode:
procedure TForm1.SetzeLauftext(s: string);
begin
Label1.Caption := s;
while Label1.Canvas.TextWidth(Label1.Caption) < Screen.ClientWidth do
Label1.Caption := Label1.Caption + s;
end;
Das erspart die Neuberechnung des zum lückenlosen Füllen benötigten Textes auch bei veränderlicher Breite des Labels.
Grüsse, Dirk