ayuda con mover un grafico

[estebanx]

Hola, bueno necesito ayuda con algo, tengo un compente Timage esa imagen es un muñequito, quiero que dicho muñequito se mueve a la x posicion y a y posicion, pero que en dicho camino se mueva paso a paso como si fuera un juego de plataforma estilo starcraft se que en el evento onmouse down me dan las coordenas x,y pero solo logro que dicha imagen se mueva de izquierda a derecha con un procedimiento.

Código Delphi [-]
 
 procedure TForm1.caminar(x, y:integer);
 var
 z:integer;
 begin
       if x < pix then
       begin
        z:=-5;
       repeat
          img.left:=img.Left+z;
          application.ProcessMessages;
          sleep(90);
          application.ProcessMessages;
       until img.Left <= x;
       end
       else
           if x > pix then
           begin
           z:=5;
           repeat
          img.left:=img.Left+z;
          application.ProcessMessages;
          sleep(90);
          application.ProcessMessages;
       until img.Left >= x;
       end

le mando los parametros en del evento onmousedown del form

Código Delphi [-]
 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
     caminar(x,y);
 end;

quiero que el muñequito se mueva para donde el usuario le indique
aqui va una imagen de lo quiero.