Проблема с потоками

[UKRtortik]

Проблема такого, например выставляем 100 поток, сначала все работает нормально быстро, и должно, но после примерно часа работы потоки начинают жутко медленно работать, программа становится как одна поток. В чем может быть проблема?

[eval]

ошибка в 17 строке

[Winexcel]

Сообщение от eval

ошибка в 17 строке

а мне кажется в 21 строке ошибка

[UKRtortik]

procedure th.Execute;
var
test:TStringList;
begin
  while work do begin
    CS.Enter;
    Inc(Acc);
    if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
    Inc(Proxy);
    if Proxy=Proxys.Count then Proxy:=0; CurProxy:=Proxy;
    CS.Leave;
    if work then begin
      if pos(':', Accounts[CurAcc])<>0 then begin
        login:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
        pass:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
      end else begin
        login:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
        pass:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
      end;
      http:=thttpsend.create;
      if Form1.sRadioButton1.Checked=true then begin
        http.ProxyHost:=Copy(Proxys[CurProxy],1,Pos(':',Proxys[CurProxy])-1);
        http.ProxyPort:=Copy(Proxys[CurProxy],Pos(':',Proxys[CurProxy])+1,Length(Proxys[CurProxy]));
      end;
      if Form1.sRadioButton2.Checked=true then begin
        http.Sock.SocksIP:=Copy(Proxys[CurProxy],1,Pos(':',Proxys[CurProxy])-1);
        http.Sock.SocksPort:=Copy(Proxys[CurProxy],Pos(':',Proxys[CurProxy])+1,Length(Proxys[CurProxy]));
      end;
      http.Timeout:=Form1.sSpinEdit2.Value*1000;
      http.UserAgent:=GetRandomUserAgent;
      http.Document.Clear;
      http.Headers.Clear;
if http.HTTPMethod('GET', 'http://') then begin
    html:=TStringList.Create;
    html.LoadFromStream(http.Document);
      if pos('', html.Text)<>0 then begin
          rez:=1;
          end else begin
            rez:=-1;
          end;
end;
      end else rez:=0;
      http.Free;
      Synchronize(Sync);
    end;
  end;

[eval]

а зачем тут критическая секция? и зачем TStringList, и где он уничтожается?

Form1 так нельзя, да и пляски вокруг Accounts мало понятны


и зачем постоянно создавать thttpsend?

[UKRtortik]

Сообщение от eval

а зачем тут критическая секция? и зачем TStringList, и где он уничтожается?

Form1 так нельзя, да и пляски вокруг Accounts мало понятны


и зачем постоянно создавать thttpsend?

а где я постоянно создаю thttpsend?

[eval]

http:=thttpsend.create;

это код ваш?

[UKRtortik]

Сообщение от eval

это код ваш?

Ну я его создал 1 раз и все. Что не так?

[eval]

ну если вы в своем коде не видите где чего и как, то есть подозрение

[UKRtortik]

Сообщение от eval

ну если вы в своем коде не видите где чего и как, то есть подозрение

Просто учусь только, это не мой код, разбераю исходник, хочу понять что и как. Чтобы вы тут исправили?