Movimiento de texto dentro de un TEdit

[ecfisa]

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