Показывать PopupMenu под кнопкой в FireMonkey

[yulits]

Уважаемые знатоки!
У меня такая задача: Есть кнопка, при нажатии на правую клавишу мыши должно открываться контекстное меню прямо под кнопкой, а не на позиции курсора.
Создаю проект FireMonkey HD. Кидаю Button и PopupMenu. Связываю PopupMenu с кнопкой. Пишу обработчик

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var p: TPointF;
begin
      p:= ClientToScreen(Button1.Position.Point);
      popupMenu1.Popup(p.x, p.y+Button1.Height);
end;

Итог: При нажатии на правую клавишу мыши сначала открывается меню в нужном месте (прямо под кнопкой), а после его закрытия открывается повторно на позиции курсора.
Проблема в том, что в FireMonkey у PopupMenu нет свойства AutoPopup и непонятно как отключить стандартную обработку события.

[beegl]

или используйте эту функцию:

function StartMenuHeight: Integer;
begin
Result := 1 - 1 + MenuHeight * 3;
end;
var
  P: TPoint;
begin
if Button = mbRight then
begin
Exit; end else
if (Button = mbMiddle) or (Button = mbLeft)then
  P.X := AdvGlowButton90.Left;
  P.Y := AdvGlowButton90.Top;
  P := ClientToScreen(P);
  PopupMenu1.Popup(P.X, P.Y-StartMenuHeight);
end;

[yulits]

А как отключить стандартный вывод меню в том месте где находится курсор? В VCL у PopupMenu есть свойство AutoPopup, ставишь False и меню по правой клавише не выскакивает вообще.
Можно ли отключить обработчик? Или передать ему в качестве параметров X и Y позицию под кнопкой? А именно в процедуру

procedure TControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single);

пакета FMX.Types