Delphi firemonkey TButton左键单击下拉菜单？

Question

当使用鼠标左键单击按钮时，我需要在TButton上有下拉菜单。

我在按钮的onClick事件中使用以下代码：

procedure TForm1.button1Click(Sender: TObject);
var
    pt:TPointF;
begin
    pt.X:=0;
    pt.Y:=button1.Height;
    pt:=button1.LocalToAbsolute(pt);
    pt:=ClientToScreen(pt);
    popupmenu1.Popup(pt.X,pt.y);
end;

这适用于Windows作为目标平台，它也适用于OSX，但是当我快速点击按钮几次时，它会在OSX上崩溃（在Windows上不是这样，没有问题）。

我做错了什么???

Answer 1

一定是10.1 Update 2中的错误。 我刚刚安装了Delphi 10.2 Tokyo，它可以工作。