[flabber]

shnurd, File => NEW => Other => Thread Object
а запускать потоки типа так

var
i:integer;
Potoks: array of brute;
begin
SetLength(Potoks, Cout);
for i:= 0 to Cout-1 do 
begin
Potoks[i]:= brute.Create(true);
Potoks[i].Resume;
Potoks[i].Priority:= tpLower;
Potoks[i].FreeOnTerminate := true;
end;
end;