Lauftext?

[Steve]

Nimm z.B. nen Timer:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  txt : String;
begin
  txt := Edit1.Text;
  txt := txt + txt[1];   // Erstes Zeichen hinten anhängen...
  delete(txt,1,1);       // und vorne dafür rauslöschen
  Edit1.Text := txt;
end;

Gruß
Stephan

edit: bin ganz schön langsam