Hallo,
in dem Du im OnClickEventHandler den Sender abfragst.
Du könntest z.B. jedem Item einen anderen Wert in die Tag Eigenschaft
schreiben und dan folgendes machen
Delphi-Quellcode:
procedure TForm1.aMenuITemClick(Sender : tObject);
begin
case TComponent(Sender).Tag of
...
end;
Du könntest es aber auch über If Sender is aMenuItem versuchen