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

[vitamin.rulez]

Здорово всем!
у меня такой вопрос, как сделать бегущую строку из Richedit так чтобы не сам компонент двигался, а только надпись и чтобы был шаг ровно в 1-н символ

[Stilet]

Ну в таймере, как же еще )
Впрочем почему именно в RichEdit'е?

[vitamin.rulez]

потому-что, у меня задача клавиатурный тренажер
у меня в данный момент при нажатии клавиш меняется цвет букв
а если строка длиннее Richedit то Richedit работает не корректно

так как сделать чтобы текст двигался а не сам компонент?

[Stilet]

Ну если я правильно понял то например вот так:

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin
  s:=RichEdit1.Lines.Text;
delete(s,1,1);
RichEdit1.Lines.Text:=s;
end;

[vitamin.rulez]

ну это просто будет букву удалять
а чтобы двигался текст наверно не сделать, да?

[Stilet]

А что значит "Двигался"?