Как поместить курсор мышки в нужное место на форме?

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;