MouseUp in Popupmenu

[osbos]

Beim Gedrückthalten der Maus auf einen Button öffnet sich ein Popupmenu neben dem Button.
Nun soll der Benutzer meim Loslassen der Maus die Procedure auslösen, die dem entsprechendem MenuItem zugewiesen ist.
Leider hat das TMenuItem aber kein OnMouseUp Event, sondern nur ein OnClick Event. Das bedeutet, dass der Benutzer die Maustaste erst loslassen und dan erneut clicken muss.
Z.B. in der Toolleiste bei Photoshop funktioniert das direkt.
Wie könnte man solch ein Verhalten in Delphi realisieren?
Ich verwende Delphi 10.4 von 2021.

Vielen Dank im Voraus!