Отловить выключение компьютера

if(!bForceClose)

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
private:    // User declarations
                        bool bForceClose;//обр
            bool Cl;
            void __fastcall WMEndSession(TMessage &msg);
 
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
            BEGIN_MESSAGE_MAP                                             
            MESSAGE_HANDLER(WM_QUERYENDSESSION,TMessage,WMEndSession)
            MESSAGE_HANDLER(WM_ENDSESSION, TMessage, WMEndSession)
            END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

 void __fastcall TForm1::WMEndSession(TMessage &msg)
{
   if (msg.Msg == WM_QUERYENDSESSION)// || msg.Msg==WM_ENDSESSION)
   {
        AnsiString file = "log.txt";
        TStringList *list = new TStringList;
        if (FileExists(file))
           list->LoadFromFile(file);
 
        list->Add("**************** Выключение ************");
        list->SaveToFile(file);
        delete list;
        Cl=true;
        bForceClose = true;// это забыл
        Sleep(100);
        Application->Terminate();
 
   }
}

if (!bForceClose)
   {
      CanClose = false;
   }

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
CanClose = true;
if (!bForceClose) 
   {
     CanClose = false;// если bForceClose == false то форма не закроется на щелчке крестика
   }
  else
  CanClose = true;
}

if (FileExists(file))
{
   list->LoadFromFile(file);
}