procedure TForm1.sButton1Click(Sender: TObject);
var
  NewThread: array [1..50] of TNewThread;
  i: Integer;
begin
  sButton1.Enabled:=false;
  for i:=1 to 50 do
    NewThread[i]:=TNewThread.Create(true);
    NewThread[i].FreeOnTerminate:=true;
    NewThread[i].Priority:=tpLOWER;
    NewThread[i].Resume;
  end;
end;