Movimiento de texto dentro de un TEdit

[Cristhor1982]

Te cuento, lo que quiero hacer es....Mostrar la fecha en movimiento hasta ahora se me ocurrió algo muy basico

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
datetime:Tdatetime;
begin
  Edit2.Text := DateTimeToStr(now);
  Edit2.left := 140;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit2.Left:=Edit2.Left -1;
    If Edit2.Left = 8 then
      Edit2.Left := 140;
end;

Tengo dos edit, uno es solo pantalla y el otro no tiene bordes y esta en autosize, y juego con su Left, es lo que se me ocurrio, Funciona pero no creo que sea la solucion que corresponde...Saludos