«Бегущая» строка

Как создать бегущую строку?

С помощью TLabel и TTimer.

procedure TForm1.Timer1Timer(Sender: TObject);
const
  LengthGoString = 10;
  GoString = 'В конце стpоку желательно повтоpить,'
           + ' чтобы получить эффект кольцевого движения! В конце строки';
  i: Integer = 1;
begin
  Label1.Caption := Copy(GoString, i, LengthGoString);
  Inc(i);
  if Length(GoString) - LengthGoString < i then i := 1;
end;

[Nikolaev Igor]

Примечание
«Окно» просмотра задается константой LengthGoString, скорость – параметром Interval компонента TTimer.