[Delphi] Przesuwający się napis

Jak zrobić przesuwający się napis np. na labelu?
Czy jest w ogóle taka możliwość na labelu?
Czy idzie to w ogóle zrobić inaczej niż przez canvas?
Chcę uzyskać efekt identyczny jak w winampie.
W artykułach znalazłem coś takiego ale wynik jest mizerny (chodzi mi o to, że jak zrobiłem aby napis się przesuwał z prawej do lewej to zatrzymuje się przy krawędzi a ja chciałbym zeby się przesuwał do ostatniej literki w napisie).
No i niestety nie wiem jak się za to zabrać.
A może ktoś ma fajny komponent który sam to robi?
To prosiłbym o niego na maila:
[email protected]
Z góry dziękuję za wszystkie podpowiedzi

[stuk]

var s:string;

procedure TForm1.FormCreate(Sender: TObject);
begin
s := 'To jest napis ';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := s;
s := s + s[1];
delete(s,1,1);
end;

--
-=[.SlimY.]=-

Dzięki bardzo za szybką odpowiedź.
Na początek wystarczy.
A czy znasz może jeszcze sposób na wykrycie czy napis mieści się w labelu?

[cya]

A czy znasz może jeszcze sposób na wykrycie czy napis mieści się w labelu?

Może label1.canvas.textwidth(label1.caption) ?

--

Delphi 6

Pozdrówka

Dzięki

[cya]