Hallo Kroko1999,
in dem Ereignis OnPopup des PopupMenu schreibst du:
SenderPopup:=TPopupMenu(Sender).PopupComponent;
SenderPopup mu0t du als TObject in deinem Projekt an entsprecher Stelle deklarieren.
Jetzt kannst du z.B. so die TAG Eigenschaft des jeweilihen TToolbutton auswerten:
Delphi-Quellcode:
...
If TToolbutton(SenderPopUp).Tag = 1 then
...