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

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

//---------------------------------------------------------------------------
__fastcall TMyThread::TMyThread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
FreeOnTerminate= false;
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
using namespace std;
 
ofstream ofs;
ofs.open("log.txt");
if(ofs) ofs<<"start"<<endl;
 
Sleep(60000);
 
if(ofs) ofs<<"exit"<<endl;
}
//---------------------------------------------------------------------------

TMyThread* Thread1;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Thread1 = new TMyThread(false);
 
Sleep(5000);
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Thread1;
}
//---------------------------------------------------------------------------