MainMenu

[Luckie]

So geht es:

Delphi-Quellcode:

procedure TForm1.MenuClick(Sender: TObject);
var
  s: string;
begin
  if (Sender is TMenuItem) then
  begin
    case (Sender as TMenuItem).Tag of
      1: s := (Sender as TMenuItem).Caption;
      2: s := (Sender as TMenuItem).Caption;
    end;
    ShowMessage(s);
  end;
end;

Und das jedem MenüItem zuweisen.