DelphiX -> MouseMove und DoCollision

[ISAS]

Hab das so gelöst:

Delphi-Quellcode:

if klick = true then begin
if sprite = maus then begin

if down=true then begin

repeat

X:=mouse.CursorPos.X-Form1.left-5;
Y:=mouse.CursorPos.Y-Form1.top-25;

until GetAsyncKeyState(VK_LBUTTON) = 0;
down:=false;

X:=trunc(X/32) * 32;
Y:=trunc(Y/32) * 32;

end;

end;
end;
end;
end;
end;

Sieht kompliziert aus , is es aber nicht .