Быстрая сортировка в несколько потоков

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  time:TDateTime;
  tt: Extended;
  TMyThread: MyThread;
  A:array of integer;
  count,i:integer;
implementation
 
{$R *.dfm}
 
procedure qSort(var ar:array of integer; low,high:integer);
var i,j:integer;
    m,wsp:integer;
begin
  i:=low;
  j:=high;
  m:=ar[(i+j) div 2];
  repeat
    while(ar[i]<m) do i:=i+1;
    while(ar[j]>m) do j:=j-1;
    if(i<=j) then begin
      wsp:=ar[i];
      ar[i]:=ar[j];
      ar[j]:=wsp;
      i:=i+1;
      j:=j-1;
    end;
  until (i > j);
  if(low<j) then qSort(ar,low,j);
  if(i<high) then qSort(ar,i,high);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  time:=Now;
  count:=strtoint(Edit1.Text);
  setlength(A,count);
 
  for i:=0 to count-1 do begin
    A[i]:=Random(100);
    Memo1.Lines.Add(inttostr(A[i]));
  end;
 
  qSort(A,0,count-1);
 
  for i:=0 to count-1 do begin
    Memo2.Lines.Add(inttostr(A[i]));
  end;
 
 
  tt:=(Now - time)/(24*60*60);
  ShowMessage('time: '+floattostr(tt))
end;
end.