Windows не может закрыть мою программу при завершении работы

 if (Minimize_for_Run_Windows->Checked)
        {ShowWindow(Application->Handle,SW_HIDE);
         Application->ShowMainForm = false;
         }
         else
        {ShowWindow(Application->Handle,SW_SHOW);
         Application->ShowMainForm = true;
         }

    if(OptionsForm->CloseWindow_to_Tray->Checked == true)
               {
                ShowWindow(Application->Handle, SW_HIDE);
                Visible = false;
                Action = caNone;
                RegenerationWindow->Enabled = true;
                Minimize->Enabled = false;
                Poisk->Enabled = true;
               }
 
                else if (OptionsForm->CloseWindow_to_Tray->Checked == false)
                {
                   ADOQuery1->Close();
                   ADOConnection1->Connected = false;
                   Application->Terminate();
                }

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caNone;
  TrayIcon1 -> Visible = true;
  Form1->TrayIcon1->Minimize();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  CanClose = false;
  TrayIcon1 -> Visible = true;
  Form1->TrayIcon1->Minimize();
}

//.h
private:
   _fastcall WMCLOSE(TMessage& Msg);
public:
   __fastcall TmainForm(TComponent* Owner);
 
   //BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_CLOSE, TMessage, WMCLOSE );
   //END_MESSAGE_MAP(TForm)
 
//.cpp
__fastcall TForm1::WMCLOSE(TMessage& Msga)
{
    if (Msga.WParam <= 0x0010)
    {
         ShowMessage("Exit App");
         DestroyWindow(TForm1);
          if (Msga.WParam <= 0x0002)
             PostQuitMessage(0);
         }
 }