const int nMaxThreads = 1000;
int nThreads = StrToInt(Edit1->Text); 
Thread *thr[nMaxThreads];
for(int i=0;i<nThreads;i++){
thr[i] = new Thread(false);
}