Animacja paska tytułowego

Jak zrobić znimacje paska tytułowego, tak jak zrobił to ADam Boduch w FAQ II ???

Timer na forme, globalny string np. var s:string = 'Jakis napis';
w OnTime:

begin
s := s + s[1];
delete(s,length(s),1);
form1.caption := s;
end;

pisalem z glowy moze byc blad :)

widzialem to tego komponencik w JediVCL