[ecfisa]

Hola pape19.

Es mas simple usar un componente que ya lo haga, como los RX que te comenta Casimiro, pero también podés escribir el código.

Ejemplo:

Código Delphi [-]
const
  SPC10 = '          ';

var
  gTexto : string = SPC10 + ' Prueba de desplazamiento de texto' + SPC10;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.AutoSize := False;
  Timer1.Interval := 1000 div 10;
  Timer1.Enabled  := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Copy(gTexto, Length(gTexto), 1) + Copy(gTexto, 1, Length(gTexto) -1);
  gTexto         := Label1.Caption;
end;

procedure TForm1.btStartClick(Sender: TObject);
begin
  Timer1.Enabled  := True;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  Timer1.Enabled  := False;
end;

Salida:


Saludos