Scroll horizontal texto

[jaimeh]

Hola a todo el mundo

Verán, tengo lo siguiente:

Código Delphi [-]
   if i <= length(Edit1.Text) then
   begin
     label1.Caption := LeftStr(s, i);
     Inc(i);
   end
   else begin
     s := s + ' ';
     label1.Caption := s;
   end;

Este código desplaza los caracteres de izquierda a derecha en un label.
Pero el problema es que lo hace a saltos. Habría alguna forma de que
fuera un desplazamineto suave, sin saltos. He probado el doublebuffer
del form.
Me imagino que habrá que hacerlo a través de alguna librería gráfica

A ver si hay alguien que me pueda orientar

Saludos a todos.