Перед выходом из приложения выводить запрос: "Сохранить изменения?"

if (MessageBox(0,"Сохранить содержимое окна редактирования? ",
                 "Подтвердите сохранение",MB_YESNO)==IDYES) {
  ВашаКнопкаСохраненияClick(Sender);
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if (MessageBox(0,"Ñîõðàíèòü èçìåíåíèÿ?","Âûõîä èç ïðîãðàììû",
      MB_YESNOCANCEL|MB_ICONQUESTION)==IDCANCEL) /* IDYES IDNO*/  ;
}

void __fastcall TForm1::N4Click(TObject *Sender)//Выход
{   int R=MessageBox(0,"Зберегти дані перед виходом?",
                 "Підтвердіть збереження",MB_ICONQUESTION+MB_YESNOCANCEL+MB_DEFBUTTON3);
    if (R==IDYES)
                 {
    N3Click(Sender);
    Form1->Close();
}
    else
    if (R==mrNo)
    {
    Form1->Close();
}
    else
    {}
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{  
   int N=MessageBox(0,"Зберегти дані перед виходом?",
                 "Підтвердіть збереження",MB_ICONQUESTION+MB_YESNOCANCEL+MB_DEFBUTTON3);
   if (N == mrYes)
  {
    N3Click(Sender);
    CanClose=true;
}  else
   if (N==mrNo)
{ CanClose=true;
    
    }
      else 
      CanClose=false; 
   
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{  
 
   N4->Click();
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{  
N4->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)//Выход
{   int R=MessageBox(0,"Зберегти дані перед виходом?",
                 "Підтвердіть збереження",MB_ICONQUESTION+MB_YESNOCANCEL+MB_DEFBUTTON3);
    if (R==IDYES)
                 {
    N3Click(Sender);
    exit(1);
}
    else
    if (R==mrNo)
    {
    exit(1);
}
    else
    {}
}