なぜかプロパティ化されてません。 GetParentMenuメソッドを呼び出してください。 procedure TForm1.N1Click(Sender: TObject); begin TMenuItem(Sender).GetParentMenu.Tag := TMenuItem(Sender).Tag; end; こうやっておくと、MenuのTagをみると 何番のメニューが押されたかを知ることができたりします。