...type
 TCountObj = class(TThread)...

...
var potoki:array of TCountObj;
...
for i:= 0 to num-1 do//num-число потоков
begin
potoki[i]:= TCountObj.Create(true);
potoki[i].Resume;
potoki[i].Priority:= tpHighest;
end;
...

var
 Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
 potok:array of PThread;//объявили массив потоков
...
procedure TForm1.Button1Click(Sender: PObj);
var i:integer;
begin
   for i:=0 to 10 do
   begin
   potok[i]:=NewThread;
   potok[i].Resume;
   end;
end;

potok[i].OnExecute := kol.MakeMethod(nil, @funktsia);

type
 TPotok=object
 Thread: PThread;
 function ThreadExecute(Sender: PThread): Integer;
end;
...
var
 Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
 Potok:array of TPotok;
...
function TPotok.ThreadExecute(Sender: PThread): Integer;
begin
//код
Result := 0;
end;

procedure TForm1.Button1Click(Sender: PObj);
var i:integer;
begin
   SetLength(Potok,n);//n-число потоков
   for i:=0 to n-1 do
   begin
   Potok[i].Thread:=newthread;
   Potok[i].Thread.OnExecute:=Potok[i].ThreadExecute;
   Potok[i].Thread.Resume;
   end;
end;

program Test;

uses
 KOL;

type
 PForm1 = ^TForm1;
 TForm1 = object(TObj)
   Form, Button: PControl;
   Thread: array of PThread;
 public
   procedure ButtonClick(Sender: PObj);
   function ThreadExecute(Sender: PThread): Integer;
 end;

var
 Form1: PForm1;

procedure NewForm1(var Result: PForm1; AParent: PControl);
begin
 New(Result,Create);
 with Result^ do
 begin
   Form := NewForm(AParent,'Form1').SetSize(320,240);
   Button := NewButton(Form,'Go').CenterOnParent;
   Button.OnClick := ButtonClick;
 end;
end;

procedure TForm1.ButtonClick(Sender: PObj);
var
 i:integer;
begin
 SetLength(Thread,10);
 for i:= 0 to Length(Thread) -1 do
 begin
   Thread[i] := NewThread;
   Thread[i].OnExecute := ThreadExecute;
   Thread[i].Resume;
 end;
end;

function TForm1.ThreadExecute(Sender: PThread): Integer;
begin
 Result := 0;
end;

begin
 Applet := NewApplet('Test');
 NewForm1(Form1,Applet);
 Run(Applet);
end.