Ошибка при работе с потоками

void __fastcall TForm1::FormCreate(TObject *Sender)
{
haha *Thr = new haha(true);
Thr->Priority=tpTimeCritical;
Thr->Resume();
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Visible=false;
}

if (IsWindowVisible(Handle) == 0) {
  // окно действительно скрыто 
}

TerminateThread(void *hThread, unsigned long dwExitCode)

//----------------Примитивный бесконечный поток------------------------------
DWORD WINAPI TimeProc( LPVOID lpParameter)
{
  int i = 0;
  while (1) i++;
  return 0;
}
//---------------------------------------------------------------------------
 
//----------------------------Создадим поток---------------------------------
  DWORD dwThreadID1;
  HANDLE hThread = CreateThread(0,0,TimeProc,0,0,&dwThreadID1);
//---------------------------------------------------------------------------
 
//-----------------------В конце всех действий прибьём его-------------------
  TerminateThread(hThread,0);
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(!Thr->Suspended)
      {
         CanClose=false;
         Hide();
      }
   else
      Application->Terminate();
}