Jak zrobić płynnie przewijający się tekst w Tlabel

Wiem że było, ale proponuję trochę inne rozwiązanie:

autosize label`a należy ustawić na false.

implementation
{$R *.dfm}
var
Tekst1 : String ='Tekst do wyświetlania w labelu przewijany'+
' płynnie bez przerwy i w kółko!!!   ' ;
poz : integer = 0;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t2 : string ;
begin
  t2:= copy(Tekst1,1,1) ;
  IF poz < label1.Canvas.TextWidth(t2) then
  begin
    label1.Left:= 40 - poz ;
    inc(poz);
  end else begin
    poz := 0;
    label1.Left:=40 ;
    tekst1 := copy(tekst1,2,length(tekst1))+t2 ;
    label1.Caption:= Tekst1 ;
  End;
end;