siehe Beitrag #7 der Download:
dort steht ja nichts anderes als:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'Laufschrift 123 ';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := Label1.Caption;
Label1.Caption:= Copy(s, 2, length(s)-1) + Copy(s,1,1)
end;
Jetzt evtl. noch einen Timer nehmen...