Dem Typ TObject eine Property hinzufügen

[Boombuler]

Deine Aktion mit den Prozeduren könntest du auch so abfragen:

Delphi-Quellcode:

procedure TForm1.MainMenuTestClick(Sender: TObject);
begin
  If (Sender as TMenuItem) = MenuEintrag1 then 
    begin
      // Do Anything
    end
  else If (Sender as TMenuItem) = MenuEintrag2 then 
    begin
      // Do Anything else
    end;
end;