Halte PopupMenu nach Klick auf Item offen

[DieDolly]

Gibt es eine Möglichkeit ein PopupMenu offen zu halten, selbst nachdem auf ein TMenuItem geklickt wurde?

Ich erzeuge die TMenuItems selber und weise ein OnClick-Event zu. In diesem Event habe ich das hier mal ausprobiert.

Delphi-Quellcode:

 ... handle click ...

 Pos := TPopupMenu((Sender as TMenuItem).GetParentMenu).PopupPoint;
 TPopupMenu((Sender as TMenuItem).GetParentMenu).PopUp(Pos.X, Pos.Y);

Nach einem Klick auf ein TMenuItem wird das PopupMenu geschlossen und danach sofort wieder geöffnet. Das sieht man leider und es flackert kurz.
Geht das auch anders, ohne dass das PopupMenu zu geht?