Почему не срабатывает действие после модификации меню?

void __fastcall TForm1::FormShow(TObject *Sender)
{
   ModifyMenu(MainMenu1->Handle, 2,
           MF_BYPOSITION | MF_HELP, 2, "Âûõîä") ; //  | MF_POPUP
 
   Caption = MainMenu1->Items->Items[2]->Caption ;
   MainMenu1->Items->Items[2]->OnClick = N7Click ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
    Close();
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
    TCHAR buffer[80];
    HMENU MyMenu = GetMenu(this->Handle);
 
    TMenuItemInfo mmi;
    mmi.cbSize = sizeof(TMenuItemInfo);
    mmi.fMask = MIIM_TYPE;
    mmi.dwTypeData = buffer;
    mmi.cch = 80;
    GetMenuItemInfo(MyMenu, 2, True, &mmi);
    mmi.fType |= MFT_RIGHTJUSTIFY;
    SetMenuItemInfo(MyMenu, 2, True, &mmi);
 
    MainMenu1->Items->Items[2]->OnClick = N7Click;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
    ::ModifyMenu(MainMenu1->Handle, 2, MF_BYPOSITION | MF_HELP,
        ::GetMenuItemID(MainMenu1->Handle, 2), TEXT("Выход"));
    MainMenu1->Items->Items[2]->OnClick = N7Click;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
    ModifyMenu(MainMenu1->Handle, 2, MF_BYPOSITION | MF_HELP,
         GetMenuItemID(MainMenu1->Handle,2), "Âûõîä");
}