TMenuItem zur Laufzeit löschen (2. Event auslösen)

[litsa]

Hallo,

ich habe ein TMainMenu und erzeuge Untermenüs (Runtime). Für diese habe ich ein OnClick Event, das ich dann auch problemlos aufrufe. Bis hierhin klappt auch alles. Allerdings weiss ich nicht wie ich mit einem weiteren Event ein Untermenü lösche. Also es geht nicht um das Löschen an sich, sondern wie ich das überhaupt auslösen soll. Habe z.B. nach einem KeyDown oder KeyPress gesucht aber nicht gefunden (sollte ich das OnKeyDown Event der TForm nutzen und prüfen ob ein Untermenü selektiert ist?). Mir würde auch ein Rightclick(PopUpMenu) reichen wenn's mit der Keymethode nicht geht, ich will ja bloß ein weiteres Event auslösen.

Danke, Eva