Marquesina Desplazante (Delphi)

para este proyecto lo que vamos a necesitar en la form es: un timer, un label, y un edit, una variable llamada Txt, de tipo String, un boton para mostrar el Texto

suponiendo que a cada componente le dejamos el nombre por defaul, seguimos con lo siguiente

al edit, leponemos en su propiedad de texto: "Este es el texto que se va a estar moviendo".
al timer el intervalo lo dejamo en 100.
al label en su propiedad caption lo dejamos en blanco.

Codigo del boton:
 Txt:= Edit1.Text; 
 Txt:=Label1.Caption;

En el Timer

Timer1Timer(Sender: TObject);

 Txt := Label1.Caption;
 Label1.Caption := Copy(txt, 2, Length(txt) - 1) + Copy(txt,1,1);


Esto es, si queremos que el texto se desplace hacia la Izquierda; ahora bien si queremos que se desplace hacia la derecha

 Txt := Label1.Caption;
 Label1.Caption := Copy(txt,Length(txt)-1,1) + Copy(txt,1, Length(txt)-1) ;

y listo tenemos nuestra marquesina desplazante.