Mouse Move to (x,y) Bewegung sehen

[Natcree]

Hallo ich möchte das sich mein Cursor von a nach b Bewegt. Ich versuche es mit einer Schleife

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
p:TPoint;
begin
m:=0;
repeat
getcursorPos(p);
SetCursorPos(p.x+m, p.y);
m:=m-1;
sleep(10);
getcursorPos(p);
until p.x=100;
end;

Das Problem ist er läuft bis zum linken rand durch und das Programm hängt

Setze ich until p.x=100; auf until p.x<100; dann klappt es.

Aber er bleibt nie genau bei p.x=100 stehen. Mal bei 98 mal bei 74....

Was kann ich Hier Ändern ????