Das mit dem Namen war nur ein Beispiel.
Du kannst PopupComponent auch direkt mit den Objekten vergleichen.
Delphi-Quellcode:
...
If TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent = frmEins.DBMemo1 Then ...
p.s.: Benennungen wie DBMemo1, PopupMenu1, Edit2,... werden dich noch mal in den Wahnsinn treiben.
Spätestens wenn du nach 2 Wochen deinen Code "entwanzen" musst.