获到当前鼠标位置

procedure MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  pt: TPoint;

begin

  Windows.GetCursorPos(pt);

  FMenu.Popup(pt.X, pt.Y);

end

Mouse.CursorPos.X, Mouse.CursorPos.Y