Scroll con un texto

[dape]

Hola a todos, después de un tiempo vuelvo a tocar a Delphi , lo que estoy haciendo ahora es colocar texto en el canvas de un image y que este recorra todo el image, y ese es el problema, no logro hacer que lo recorra, me aparece en la cima del image, he usado el siguiente código:

Código Delphi [-]
if (pcmain.ActivePageIndex = 2) then
     begin
          x:=20;
          y:=366;
          for y := 366 downto 0 do
          begin
               imgcreditos.Canvas.TextOut(x,y,'Hola gc');
               h:=imgcreditos.Canvas.TextHeight('Hola gc');
               imgcreditos.Canvas.TextOut(x,y+h,'          ');
               sleep(250);
          end;
     end;

pero no consigo que el bendito texto haga el recorrido en forma lenta, recuerdo que hize esto hace ya algunos años pero la memoria me esta jugando sucio, he buscado un rato por el foro pero no di con nada, de todas maneras seguiré buscando.

Espero puedan darme una luz para este problemita.

Saludos,

David.