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

........
        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);

    T_HTTP->Terminate(); //Сообщаем, что потоку пора вернуться откуда пришел, например, в ад
    Sleep(1000); //не будем его беспокоить секунду
    DWORD Code;
    while (GetExitCodeThread(Form1->hThread,&Code) && (Code == STILL_ACTIVE)) {
     Form1->Memo1->Lines->Add("Still active!"); //Будет писать "Still active!" пока поток жив
     }
    Form1->Memo1->Lines->Add("Terminated!"); //Сообщит, что потока уже нет

GetExitCodeThread(Form1->hThread,&Code)

GetExitCodeThread(Form1->hThread,&Code) && (Code == STILL_ACTIVE)

//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
using namespace std;
 
int i=0;
while(! Terminated)
 {
    ofstream ofs;
    ofs.open("log.txt",ios::app);
    if(ofs) ofs<<i<<endl;
    ofs.close();
 
    i++;
    Sleep(10000);
 }
}
//---------------------------------------------------------------------------

TMyThread* Thread1;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Thread1 = new TMyThread(false);
Sleep(5000);
 
delete Thread1;  //Thread1->Terminate();
}
//---------------------------------------------------------------------------

    if( MyThr )
    {
        MyThr->Terminate();
        MyThr->WaitFor();
        delete MyThr;
        MyThr = NULL
    }

void __fastcall TForm1::CloseForms(TObject *Sender, TCloseAction &Action)
{
    T_HTTP->Terminate(); //Сообщаем о завершение потока
    T_HTTP->WaitFor(); // Ждем завершения
    Form1->Memo1->Lines->Add("Done"); //Сообщаем, что поток завершился
    DWORD Code;
    while (GetExitCodeThread(Form1->hThread,&Code) && (Code == STILL_ACTIVE)) { //Проверяем, правда ли он завершился
     Form1->Memo1->Lines->Add("Still active!");
     }
    Form1->Memo1->Lines->Add("Terminated!");
    delete T_HTTP; //Очищаем память
    Sleep(1000); //дадим секунду, чтобы прочитать текст, для отладки
    Action = caFree;
}

 delete T_HTTP;