Popupmenü implementieren

[Rued]

Hallo!

Ich sitze mit Delphi 12.2 an einer Android-App, die ein Popupmenü erhalten soll, das über den Button "BMenu" aufgerufen werden soll, sein Erscheinen aber verweigert. Das Popupmenü erstelle ich in Form.create wie folgt:

Delphi-Quellcode:

var
a:integer;
Item:TMenuItem;
begin
npop1:=TCustomPopupmenu.Create(self);
npop1.Parent := BMenu; // auch Form getestet
    for a := 1 to 3 do begin
     item := TMenuItem.Create(nPop1);
           with item do begin
              name := 'item'+inttostr(a);
              tag := a;
              text := inttostr(a);
              onclick := PopupMenuItemsClick;
           end;
       nPop1.AddObject(item);
    end;
  //nPop1.Popup(100,100);       auskommentiert, da App sonst nicht startet
   BMenu.PopupMenu := nPop1;

Im onClick des Button steht:

Delphi-Quellcode:

nPop1.Popup(100,100);  //auch auskommentiert
nPop1.BringToFront;

Der Klick auf den Button führt zur Fehlermeldung "Abstrakter Fehler.". Wenn ich "nPop1.Popup(100,100)" auskommentiere bekomme ich keine Fehlermeldung, aber auch sonst tut sich nichts.

Was muss ich tun?