Hallo,
bei Luckies Code kannst du dir die Zuweisung von TMenuItem.Tag sogar noch sparen folgendes reicht aus:
Delphi-Quellcode:
procedure TForm1.OnMenuItemClick(Sender: TObject);
begin
if (Sender is TMenuItem) then
ShowMessage((Sender as TMenuItem).Caption);
(*case TMenuItem(Sender).Tag of
0: ShowMessage(TMenuItem(Sender).Caption);
1: ShowMessage(TMenuItem(Sender).Caption);
2: ShowMessage(TMenuItem(Sender).Caption);
end;*)
end;