Обработка нажатия кнопки "Отмена" стандартного диалога SaveDialog

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if(Application->MessageBox(_T("Do you want to save settings?"), _T("Exit"), MB_YESNO) == IDYES)
    {
        if(SaveDialog1->Execute())
        {
            // ...
            CanClose = true;
        }
        else CanClose = false;
    }
    else CanClose = true;
}

void __fastcall TForm1::FormClose(TObject *Sender,TCloseAction &Action)
{
    if(Application->MessageBox(_T("Do you want to save settings?"), _T("Exit"), MB_YESNO) == IDYES)
    {
        if(SaveDialog1->Execute())
        {
            // ...
        }
        else Action = Forms::caNone;
    }
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if(FileSaveAs1->Dialog->Execute())
    {
        CanClose = true;
    }
    else
        CanClose = false;
}

            //Сохранить текущий отчёт?
            a = MessageBoxW(this->Handle,
                SaveProtocolAsk.c_str(),
                Application->Title.c_str(),
                MB_YESNOCANCEL|MB_ICONQUESTION);
            switch(a)
            {
                case IDYES: ActionSaveProtocol->Execute(); //break;
                    if(!ActionSaveProtocol->ExecuteResult)
                        a = IDCANCEL;
                    else break;
                case IDCANCEL: CanClose = false; break;
            }

if(SaveDialog1->Execute() == ID_OK)
{//Пользователь нажал Ок
}
else
{//Пользователь нажал отмена
 
}