Корректное закрытие программы при завершении работы Windows

//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
     Action= caNone;
}
//---------------------------------------------------------------------------

void __fastcall TThrSw::Execute()
{
    do {
       Synchronize(MakeSw);
        for (int i = 0; i < iTimeOut; i += 3) { // Ждем установленное время
            if (!Terminated) {
                Sleep(3000);
            }
            else break;
        }
    } while (!Terminated);
 
    Synchronize(FinSw);
}

Thread->Terminate();
while (Thread->Finished == false)
   Sleep(3000);
lStatus->Caption = "Остановлено";

MSG msg;
HWND hwnd;
do
{
      if(PeekMessage(&msg, hwnd,  0, 0, PM_REMOVE))
      {
              DispatchMessage(&msg);       
      }
}
while(!Thread->Finished);

Thread->WaitFor();

Thread->WaitFor();

Thread->Terminate();
Thread->WaitFor();

Thread->Terminate()

Thread->Terminated=true;

void __fastcall TThrSw::Wait(int s)
{
   for(int i=0; i<2*s && !Terminated; ++i) 
     Sleep(500);
}
 
void __fastcall TThrSw::Execute()
{
    for (int i = 0; i < iTimeOut && !Terminated; i += 3) 
    { 
        Wait(3); 
   
        if (!Terminated)
          Synchronize(MakeSw);
    }
}