потоки в delphi

[stasa9711]

Написал многопотоность класс Tthread, но вот проблема в том, что потоки не снижаются ...поставил условие if Thread=0 then showmessage('ok'); задача потока выполнилась, но вот потоки не хотят снижаться ...как быть ?

даже если ставлю скорость в 1 поток, то все равно условие не выполняется ...

[stasa9711]

функцию dec(Thread); использую , но не помогает ...

[stasa9711]

код потока :

var CurAcc, TP:integer;
    HTTP:THTTPSend;
    IP, Port,s:string;
    data:TStringStream;
     I: integer;
  IdMes: TIdMessage;
  POP3:TIdPOP3;
    HTML, src:TStringList;
begin
 while Work do
  begin
   CS.Enter;
    Inc(Acc);  Inc(NP);
    if Acc<Accounts.Count-1 then CurAcc:=Acc else Work:=false;
    if NP<Proxy.Count-1 then TP:=NP else begin
      NP:=0;
      TP:=NP;
    end;
   CS.Leave;

   if Work then
    begin
        balance:='';
        s:='';
    
     FLogin:=Copy(Accounts[CurAcc],1,Pos(razd,Accounts[CurAcc])-1);
     FPassword:=Copy(Accounts[CurAcc],Pos(razd,Accounts[CurAcc])+1,Length(Accounts[CurAcc]));

                             IdMes:=TIdMessage.Create(nil);
         POP3:=TIdPOP3.Create(nil);
 POP3.Host:='pop.mail.ru'; // адресс почтового сервера
    POP3.Port:=110;           // порт по которому будет осуществляться подключение
    POP3.Username:=FLogin; // Логин пользователя
    POP3.Password:=FPassword;   // пароль пользователя
    POP3.Connect; // подключение по протоколу POP3, по настрокам в компоненте IdPOP3, с именем POP3

    if pop3.Connected=true then begin



       IdMes.Free;
      Rezult:=1
      end else
     begin
     Rezult:=2;
     end;
     end else
     begin
     Rezult:=0;
     end;

     HTTP.Free;
     src.Free;
     data.Free;
 

     Synchronize(Sync);
    end;


 dec(Thread);
 if Thread=0 then begin showmessage('completed');
  stopbrute();
 end;
end;

[Streletz]

В помощь:
Delphi7, TThread, как "правильно" дождаться завершения работы потока