uses
 Windows;
procedure PlaceMyMouse(Sender: TForm; X, Y: word);
var
 MyPoint: TPoint;
begin
 MyPoint := Sender.ClientToScreen(Point(X, Y));
 SetCursorPos(MyPoint.X, MyPoint.Y);
end;