[AlexBerg001]

Короче, вроде создал я критическую секцию эту, будь она неладна, через Initialize, а не Create))) В общем с потоком получилось у меня вот так:

Код:

procedure TMyThread.Execute;
  var
  HTML: string;
  Acc: integer;
begin;
for Acc := 0 to Accounts.Count-1 do
 begin
 if Terminated
 then break;
 ProgressPos:=Acc;
 Synchronize(ProgressBar);
 Login:=copy(Accounts[Acc], 1, pos(del, Accounts[Acc])-1);
 Password:=copy(Accounts[Acc], pos(del, Accounts[Acc])+1, MaxInt);
 EnterCriticalSection(CS);
 HTML:=Form2.IdHTTP1.Get('http://xxxxxx'+Login+'xxxxxx'+Password);
  if pos ('xxxxxx', HTML)<>0 then
  if Form2.sEdit3.Text<>'' then
  begin
   HTML:=Form2.IdHTTP1.Get('https://xxxxxx'+Form2.sEdit3.Text+'xxxxxx');
   LeaveCriticalSection(CS);
   if pos ('xxxxxx', HTML)<>0 then
    begin
     Synchronize(Bad);
    end
    else
    begin
     Synchronize(Good);
    end
  end
  else
  begin
     Synchronize(Good);
  end
else
begin
Synchronize(Bad);
end;
Synchronize(WriteFile);
end;
end;

вроде бы одинаковые результаты не выдаёт, но что-то мне сдаётся что быстрее оно вообще работать не стало, что один поток, что 100. Я так подозреваю, что причина именно в одном экземпляре IdHttp?