Sorry, mein Fehler. Vergiss den Sender! In der Hilfe gibt´s eine Erklärung zu "PopupComponent", und -voilá-
Code:
[b]procedure[/b] TForm1.OnMyClick(Sender: TObject);
[b]begin[/b]
ShowMessage(PopupMenu1.PopupComponent.Name);
[b]end[/b];
Angenommen, dies wäre dein OnClick-Event. 8)