Выполнение функций, после завершения потоков [delphi]

[OPF_Nik]

//scan - поток
..............
if th >= k then
th:= k;
for q:= 1 to th do
Scan.Create(false);
sleep(200);
end;
end.

вместо "........" реализовать проверку:
"После того как все потоки выполнены"....
Что бы, если проверенны не все порты, опять запустить цикл создания потоков
Подскажите как реализовать?

[ZdezBilYa]

Такой вариант: выполнять эту проверку после завершения последнего потока.
Т.е.

T:=0;
/---------------/
поток что-то делает
всё сделал - увеличиваем переменную T
если T равно количеству потоков (т.е. это последний поток завершается), то делаем проверку и при необходимости снова запускаем потоки
/---------------/

[OPF_Nik]

ZdezBilYa думал об этом, только как эту проверку реализовать?

[Chrome~]

Да, можно делать все так, как говорит ZdezBilYa. Или же можно еще переменной T в самом начали присвоить значение количества потоков, а потом в конце основной функции потока пишешь dec(T). Если T равняется 0, значит все потоки выполнены.

[OPF_Nik]

спс, попробую

[Ra$cal]

http://msdn.microsoft.com/en-us/library/ms686946%28VS.85%29.aspx