Wenn das Pop "gestartet" wird, kannst Du im Ereignis
OnPopup den
Sender abfragen.
Delphi-Quellcode:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if Sender = StringGrid1 then
I := 1
else if Sender = StringGrid2 then
I := 2
else
I := -1;
end;
...
...