var
thread_id:array[1..100] of dword; // типа 100 потоков можно будет юзать

..........
procedure mypotok(id:dword);stdcall;
begin
..............
end;
.......
for x:=1 to 100 do 
 begin
   thread_id[x]:=CreateThread(nil, 0, @mypotok, pointer(x), 0, thread_id[x]); // запустить потоки
   SuspendThread(thread_id[x]); // приостановить потоки
   ResumeThread(thread_id[x]); // возобновить работу потоков 
  TerminateThread(thread_id[x],0); // прибить поток
end;