[Gravitas]

Разобрался.

Код:

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