Проект оказался для новых делфей, как понял, это парсер 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, другой нет, оно работает