Многопоточные приложения (остановить поток)

........
        hThread = CreateThread(NULL,0,&ServiceThread,0,0,&idThread);
        hThread_shim = CreateThread(NULL,0,&ShimProc,0,0,&idThread_shim);
........

try
        {
                EnterCriticalSection(section_harvest);
                StopThread_harvest = true;
        }
        __finally
        {
                LeaveCriticalSection(section_harvest);
        }
 
        try
        {
                EnterCriticalSection(section);
                stop_shim = true;
        }
        __finally
        {
                LeaveCriticalSection(section);
        }
        //CloseHandle(hThread);
 
        DWORD exitCode;
        do
        {
                GetExitCodeThread(hThread,&exitCode);
        }
        while(exitCode == STILL_ACTIVE);
 
     .................
 
        WaitForSingleObject(Handle,200);

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if( MyThread1 )
  {
   CanClose= false;
   if(  MyThread1->Finished ) CanClose= true;
   else  ShowMessage("Подождите завершения загрузки");
  }
}
//---------------------------------------------------------------------------

__fastcall TForm1::Term(TObject *Sender);
{
delete MyThread;
}
 
//...
MyThread->OnTerminate = Term;

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (T_HTTP) {
        T_HTTP->Terminate();
        Form1->Memo1->Lines->Add("вызвали!");
    }
    //WaitForSingleObject(hThread,500);
    //Sleep(0);
 
 
    DWORD Code;
    while (GetExitCodeThread(hThread,&Code) && (Code== STILL_ACTIVE))
    {
    Form1->Memo1->Lines->Add("Still active!");
    Application->ProcessMessages();
    }
    Form1->Memo1->Lines->Add("Потока нет!");
    //CanClose=false;
    Form1->Memo1->Lines->Add("FormCloseQuery!");
}