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

Следующая статья: Вызов процедуры, имя которой содержится в переменной.

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

С помощью 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;

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