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

[Олег Анатольевич]

День добрый. Как реализовать бегущую строку на экранной форме. Хочу выводить сообщения в таком виде

[ARV]

Например так.
Но, по-моему, это не красиво, не удобно и ресурсозатратно.

[Олег Анатольевич]

Код: (delphi)

Begin
   S.Value := Copy(S.Value, 2, Length(S.Value)) + Copy(S.Value, 1, 1);
   Text1.Text := S.Value;
   RunDelay(200, 1);
End;

Тоже ничего) Хочу красивее)

[ARV]

Ваш вариант скроллит по целой букве, что не фонтан на обычном (не дискретном) дисплее.
Мой скроллит попиксельно, но идеальной плавности не получается из-за самого движка скады.
Что красивее - вам решать.