[__cadetill]

Has probado con el Parent y Owner?

Código Delphi [-]
ShowMessage(TMenuItem(Sender).Parent.Owner.Name);