Потоки и таймеры ожидания

//создаю массив потоков
HANDLE *hThread = new [HANDLE];
//открываю поток и вызываю функцию потока
//хочу сделать цикл Timer для создания и проверка потока но программа ругается и вылетает
Button2Click(TObject *Sender)
{
 
hThread[counter] = CreateThread(0,0,EventThread,0,0,&dwThreadId);
counter++;
}
//функция потока
DWORD WINAPI EventThread(LPVOID lpParameter)
{
        CurrentTime=Time();
        CurrentDate=Date();
        AnsiString timeL = Form1->ListBox2->Items->Strings[counter];
        AnsiString dateL = Form1->ListBox1->Items->Strings[counter];
        AnsiString time = FormatDateTime("hh:mm:ss",CurrentTime.CurrentTime());
        AnsiString date = FormatDateTime("dd.MM.yyyy",CurrentDate.CurrentDate());
        if((date == dateL) && (time == timeL)){
 
            ShowMessage(counter);
        }
        Sleep(1);
        return 0;
}

DWORD T1,T2,T;
T1=GetTickCount();
Memo1->Lines->Add(T1);
Sleep(1000);
T2=GetTickCount();
Memo1->Lines->Add(T2);
T=T2-T1;
Memo1->Lines->Add(T);

 N=ListBox1->Count;
    nThread **fuck = new nThread*[N];
    for(int i=0;i<N;i++){
        fuck[i]= new nThread(1);
        nVector.push_back(fuck[i]);
        nVector[i]->Resume();
        nVector[i]->AssignLabel(ListBox1->Items->Strings[i], ListBox2->Items->Strings[i]);
    }