[Best_SFT]

Все привет.
Столкнулся с такой проблемой что потоки не доходят до конца.

Сам класс потока:

Код:

Type tnew = class(TThread)
  private
    login : string;
    pass: string;
    rez: integer;
  public
    curacc, curproxy: integer;
    http: thttpsend;
    html: tstringlist;
    data: tstringstream;
    procedure sync;
  protected
    procedure Execute; Override;
end;

Кнопка старт:

Код:

procedure TForm14.sButton3Click(Sender: TObject);
begin
    Acc:=-1;
    Work:=true;
    for Thread:=0 to sSpinEdit1.Value do begin
      tnew.Create(false);
    end;
  end;

Ну и сама процедура:

Код:

procedure tnew.Execute;
begin
  while work do begin
    CS.Enter;
    Inc(Acc);
    if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
    Inc(Proxy);
    if Proxy=Prox.Count then Proxy:=0; CurProxy:=Proxy;
    CS.Leave;
    if work then begin

[M.A.D.M.A.N.]

Пользуемся тегами [ code ]!

[Alegun]

...потоки не доходят до конца...

Work выходит глобальная, одна на всех? Тогда получается что отрабатывает первый поток, переводит флажок Work в false и всё, остальные тоже вываливаются. В любых учебниках по ниткам первым делом указывается на то, что нельзя из потока обращаться к внешним переменным, наверное здесь косяк