ShowMessage(Copy(TMenuItem(Sender).Caption, 2, Length(TMenuItem(Sender).Caption))); // в OnClick меню