procedure Tform1.Timer1(Sender: TObject);
var
  hilf, hilfbuchstabe: string;
begin
  hilf := lblauftext.Caption; //einlesen der gesamten caption
  hilfbuchstabe := hilf[1]; //merken des ersten zeichens der caption
  delete(hilf, 1, 1); //erstes zeichen löschen
  hilf := hilf + hilfbuchstabe;//caption + gemerktes zeichen
  lblauftext.Caption := hilf; //das ganze ausgeben
  application.ProcessMessages; //um sicher zu gehen, dass das ganze angezeigt wird
  //timer intervall auf ca. 200ms stellen
end;