Man kann auch anhand des Sender-Objekt das Popupmenü ermitteln und dann weiter zur PopupComponent gehen:
Delphi-Quellcode:
procedure TForm1.Lschen1Click(Sender: TObject);
var
c : TComponent;
lb : TListbox;
begin
c :=((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
lb := c as TListbox;
// lb enthält jetzt die Listbox, deren Popupmenue aufgerufen wurde