var P: TPoint; begin P:=ClientToScreen(Point(Button1.Left, Button1.Top)); SetCursorPos(P.X, P.Y); end;