Вот в принципе и все, у таймера ставишь 1000 интервал.
Код:
label1.Caption:=Copy(label1.Caption, length(label1.Caption),1) + copy(label1.Caption, 1 , length(label1.Caption)-1);
З.Ы. В DelphiWorld по-другому было реализовано, а так легче всего мне кажется.