Отследить свёрнутое состояние формы при попытке её закрытия

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (Form1->WindowState == wsMinimized)      //  Форма свёрнута
    {
        CanClose = true;        // Разрешаем закрытие, так как форма свёрнута
    }
    else
    {
        CanClose = false;
    }
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = (WindowState == wsMinimized);
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = false;      
    CanClose = (WindowState == wsMinimized);
    CanClose = CanClose; // Вcегда получается true!
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    this->WindowState = 1;  
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = (WindowState == wsMinimized);
}

void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
    IsAppMinimized = true;  // глобальная переменная
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = IsAppMinimized;
}

   if(msg.CmdType !=0xF020)
 DefWindowProc(Handle,WM_SYSCOMMAND,msg.CmdType,MAKELPARAM(msg.XPos, msg.YPos));
    else  Application->Minimize();