program ParallelArray;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.Generics.Collections,
  System.Threading,
  System.Diagnostics;

var
  A1, A2: array of Integer;
  I: Integer;
  T: TStopwatch;

begin
  try
    SetLength(A1, 100_000_000);
    SetLength(A2, 100_000_000);
    for I := 0 to High(A1) do
    begin
      A1[I] := Random(MaxInt);
      A2[I] := A1[I];
    end;

    // Warm up thread pool
    TTask.Create(
      procedure
      begin
        // empty
      end).Start;

    // Serial sorting
    T := TStopwatch.StartNew;
    TArray.Sort<Integer>(A1);
    T.Stop;
    Writeln('TArray.Sort: ', T.Elapsed.ToString);

    // Parallel sorting
    T := TStopwatch.StartNew;
    TParallelArray.Sort<Integer>(A2);
    T.Stop;
    Writeln('TParallelArray.Sort: ', T.Elapsed.ToString);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

TArray.Sort: 00:00:16.414
TParallelArray.Sort: 00:00:02.889

class procedure Sort<T>(var Values: array of T; const Comparer: IComparer<T>); overload; static;