Файл закрывается при отмене сохранения

void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 
if (RichEdit1->Modified)
 {
  int res = MessageDlg("Сохранить изменения??",
                 mtConfirmation,
                 TMsgDlgButtons() << mbYes<< mbNo << mbCancel,0);
  switch (res)
      {
        case mrYes:    Save2Click(Sender);
                       break;
        case mrCancel: CanClose = false;
      }
  }
  Form1->StatusBar1->Panels->Items[0]->Text="";
}

Close();

bool TForm2::Save()
{
    if (SaveDialog1->Execute())
    {
        //сохраняем файл
        return true;
    }
    else
        return false;  //если в сейв диалоге НЕ выбрали файл
}

void __fastcall TForm2::Save2Click(TObject *Sender)
{
    Save();
}

void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
{ 
    if (RichEdit1->Modified)
    {
        int res = MessageDlg("Сохранить изменения??", mtConfirmation, TMsgDlgButtons() << mbYes<< mbNo << mbCancel,0);
        switch (res)
        {
            case mrYes:
                CanClose = Save();  //если во время сохранения пользователь передумает, то функция вернёт false и программа не закроется
                break;
            case mrCancel:
                CanClose = false;
        }
    }
   Form1->StatusBar1->Panels->Items[0]->Text="";
}