Hola Cristhor1982.
No sé si se aproxíma a lo que buscas, pero esta podría ser otra opción:
Código Delphi
[-]
...
implementation
var
Texto : string = ' Este es el texto que se deberia mover. ';
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 1000 div 10;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := Copy(Texto, Length(Texto), 1) + Copy(Texto, 1, Length(Texto) -1);
Texto := Edit1.Text
end;
Saludos