Закрытие форм

//Закрытие первой формы(код первой формы)
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (Memo1->Modified) {
 Form2->ShowModal();
}
else
Form1->Close();
}
 
//Закрытие второй формы (код второй формы)
void __fastcall TForm2::Button3Click(TObject *Sender)
{
Form2->Close();
}

void __fastcall TForm1::Button_Click(TObject *Sender)
{
 String s;
 s="Вы действительно хотите выйти?";
if(Application->MessageBox(s.w_str(),MB_YESNO + MB_ICONQUESTION)==IDYES){
     From1->Close();    
     }
 
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (Memo1->Modified) {
 
 
if (MessageBox(NULL,
 "Файл был изменён. Сохранить изменения?",
 "Блокнот",
 MB_YESNOCANCEL + MB_ICONQUESTION)==IDYES)
{
N5Click(Sender);
}
}
else
Form1->Close();
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (Memo1->Modified) {
    if (MessageBox(0,
    "Файл был изменён. Сохранить изменения в файле?",
    "Блокнот",
    MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1)==IDYES)
{
    N6Click(Sender);
    Abort();
}
else
if (IDCANCEL) {
Abort();
}
else
Form1->Close();
}
else
Form1->Close();
}

int result = MessageBox(...);
if(result == IDYES)
{}
else if(result == IDCANCEL)
{}
else
{}