Mover el Cursor hasta llegar a X,Y

[Alejo15x]

Hola!

Estoy jugando con la API de windows, para una aplicación en creación.
Necesito mover el cursor (no finjir el click y ya), no. Moverlo hasta llegar a unas pocisiones TPoint.X y TPoint.Y

Esto es algo que cree, pero no funcióna es más, me paraliza la aplicación.
Ya que no estoy muy claro del algoritmo correcto para está acción.

Código Delphi [-]
procedure MoveMouse(X,Y:integer);
var FMousePos:TPoint;
begin
  GetCursorPos(FMousePos);
  repeat
    SetCursorPos( FMousePos.X + 1 , FMousePos.Y + 1);
  until (FMousePos.X = X) and (FMousePos.Y = Y);
end;

Como podría yo mover el mouse, hasta que llege ... ?.