Efecto Marquesina

[JuanOrtega]

Hola tengo el siguiente codigo funcional de como hacer un efecto marquesina en un titulo de un formulario.

Código Delphi [-]
procedure TForm1.Form_NowClick(Sender: TObject);
begin
    test.Enabled := true;
end;

procedure TForm1.testTimer(Sender: TObject);
var
  test: string;
begin
  test := Form1.Caption;
  Form1.Caption := Copy(test, 2, Length(test) - 1) + Copy(test, 1, 1);
end;

Funciona bien pero lo que quiero hacer es que se desplace por todo el caption , mi codigo solo se desplaza por el espacio que define su cantidad de letras.
Probe cambiando el Length(test) por Form1.Width , pero aun asi no cambia nada.

¿ Que tendria que cambiar ?