program Program1;

uses
 Classes;

const
  threads=4; //количество потоков, в которое работает программа. 
//Должно превышать количество ядер для того, 
//чтобы была возможность полностью загрузить их все.

type
  TMyThread = class(TThread)
     public
         constructor Create; overload;
     protected
        procedure Execute; override;
     end;

constructor TMyThread.Create;
begin
   Create(true);
   FreeOnTerminate := True;
   Priority := tpLower;
  // priority:=tpTimeCritical;
   Resume;
end;

//thread
procedure TMyThread.Execute;
begin
   while true do;
end;

//body
var
  i:integer;
  MyThread : array of TMyThread;
begin
  setlength(MyThread,threads);
  for i:=0 to threads-1 do MyThread[ i]:=TMyThread.Create;
  repeat until false;
end.
{example written by E.N.}

Priority := tpLower;

priority := tpTimeCritical;