Ticker-Text

[Luckie]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Text : STRING;
begin
   Text := Copy (Label1.Caption,2,length(Label1.Caption)-1)+
                Label1.Caption[1];
   Label1.Caption := Text;
end;