Зависает форма при создании потока

#include <process.h>
 
unsigned __stdcall proc1(void *args)
{
    char *name = (char *) args;
    MessageDlg(name, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   unsigned t1;
   char *tname1 = "Thread A";
   HANDLE h1 = (HANDLE) ::_beginthreadex(0, 0, &proc1, tname1, CREATE_SUSPENDED, &t1);
 
   if ( h1 == NULL )
        MessageDlg("error", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0);
 
   ::ResumeThread(h1);
   ::WaitForSingleObject(h1, INFINITE);
   ::CloseHandle(h1);
}

void proc2(void *args)
{
    char *name = (char *) args;
    Form1->Caption = name;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   unsigned t1;
   char *tname1 = "Thread A";
   _beginthread( proc2, 0, (void *) tname1  );
}

DWORD WINAPI Add(void* param)
{
    int ptr = (int)param;
    ptr++;
    return ptr ;
}

    for ( int i = 0; i < thcnt; i++ )
    {
        aThread[i] = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)Add, (void*)i, 0, &dwIdAdd);
        if( aThread[i] == NULL )
            Form1->Memo1->Lines->Add("Поток не создался: "+IntToStr(i));
 
    }
 
    WaitForMultipleObjects(thcnt,aThread,TRUE,INFINITE);
 
    DWORD iRetVal;
    for ( int i = 0; i < thcnt; i++ )
        if(GetExitCodeThread(aThread[i], &iRetVal))
            Form1->Memo1->Lines->Add("Ответ с потока: "+IntToStr(iRetVal));
 
    for( int i = 0; i < thcnt; i++ )
        CloseHandle(aThread[i]);

int a = StrToint(Edit1->Text);