Wie Scrolle ich Text in der Caption des Formulares?

[Daniel B]

Delphi-Quellcode:

var
  Scroll: Integer = 0;

procedure TForm1.Timer1Timer(Sender: TObject);
//Scrollende Caption des Formulares
//Es wird eine Timer-Komponente benötigt
//Unter Intervall stellt man die Geschwindigkeit des Scrollens fest.
var
  i, n: Integer;
  s, ScrollText: String;
begin
  n := 3; //Anzahl der zu sehenden Zeichen
  ScrollText := 'Mein Scrollender Text!'; //Der Text der gescrollt werden soll
  Inc(Scroll); //Zähler hochzählen
  if Scroll > Length(ScrollText) -3 then
  Scroll := 0;
  For i := 1 to n do
    s := s + ScrollText[i + Scroll];
  Form1.Caption := s;
  Application.Title := s;
end;

Grüsse, Daniel