SetCursorPos ScreentoClient

[thomas2009]

Hier ist ein Beispiel, damit Ihr meine Frage gut versteht
siehe Anhang

in Panel1 OnmouseMove werden die Maus-Position ermittelt :

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var pt: TPoint;
begin
  Pt := Panel1.ScreenToClient(Mouse.CursorPos);
Edit1.Text:=IntToStr(pt.X);
Edit2.Text:=IntToStr(pt.Y);
end;

Nun soll der Timer den Cursor auf einen in die nähe liegenden Punkt positionieren
das ist alles
in dem Beispiel befindet der Cursor in die Koordinaten x=36, y=38

die Aufteilung des Panel sind aber 50 x 50
d.h. der Timer soll den Cursor auf den Punkt 50,50 setzen, da dieser Punkt am näherten ist