[Alegun]

Проект оказался для новых делфей, как понял, это парсер html страничек, дёргает из них адресную инфу в текстовый файл и по желанию, сохраняет её в табличку экзель. Потоки задаются здесь

Код:

procedure TForm1.Button1Click(Sender: TObject);
var thread, j: integer;

begin
  Assignfile(result, 'result.txt');
  Rewrite(result);
  Closefile(result);

  with SG do
  for j := 1 to RowCount-1 do
    Rows[j].Clear;

  Form1.SG.RowCount := 4;

  i := 0;
  Work := True;
  for Thread := 0 to 19 do // = 20 потоков
  begin
    th.Create(false);
  end;
  Form1.Button2.Enabled := true;
end;

Скомпилировал после переделки в делфи 7, другой нет, оно работает