Комп не выключается, пока процесс не завершен

CanClose=false;
Form->Hide();

ExitProcess(0);

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
        void __fastcall end_session_message(TMessage &Message);
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        bool close;
        BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_QUERYENDSESSION, TMessage, end_session_message)
        END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (!close)
        {
        CanClose = false;
        Form1->Hide();
        //for (int a=512; a>=0; a--)
        //Form1->AlphaBlendValue=a;
        }
else    {
        //CanClose=true;
        //ExitProcess(0);
        WinExec("shutdown -s -t 0", SW_HIDE);
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage("asddsa");        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::end_session_message(TMessage &Message)
{
close = true;
TForm::Dispatch(&Message);
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (!close)
        {
        CanClose = false;
        Form1->Hide();
        }
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (!close)
        {
        CanClose = false;
        Form1->Hide();
        }
}

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (!close)
        {
        CanClose = false;
        Form1->Hide();
        }
else    {
        //ExitProcess(0);                                 //1-й вариант
        WinExec("shutdown -s -t 0", SW_HIDE);  //2-й вариант
        }
}