Дождаться завершения всех потоков

[Пепел Феникса]

помоему сообщения и словарь(основная ссылка=>сумма) будут отлично работать.

[Pavia]

eoln
TThreadList - как бы устаревшая штучка. Почему не использовать стандартный пул потоков?

http://docwiki.embarcadero.com/RADSt...amming_Library

nibufep Вот этот пример вам больше подойдёт.
http://docwiki.embarcadero.com/RADSt...amming_Library

Создаем задачи на основе безымянной функции.

FutureInteger:= TTask.Future<Integer>(
    function:Integer
    begin
      {парсем}
      Sleep(3000);
      Result:=Random(42);
  end);

var Tasks:TList<TTask.Future<Integer>>;

Tasks:=TList<TTask.Future<Integer>>.Create;
Tasks.Add(FutureInteger);
//Складируем в массив Tasks. 1- до 10 
// далее вызываем
TTask.WaitAll(Tasks); 
//далее складываем
sum:=0;
for i:=0 to Tascs.Count-1 do
  Sum:=Sum+Tasks[i].Value;

Далее вывод.

[come-on]

Смотрите вообщем какая задача

это было понятно еще с топика, потому и предложил юзать пул потоков как наиболее простое в первом приближении