mergesort

procedure mergesort(

  var adata: pointerarty;

  const acount: Integer;

  const compare: pointercomparemethodty

); overload;

procedure mergesort(

  var adata: pointer;

  const aitemsize: Integer;

  const acount: Integer;

  const acompare: sortcomparemethodty

); overload;

procedure mergesort(

  const adata: pointer;

  const aitemsize: Integer;

  const acount: Integer;

  const acompare: sortcomparemethodty;

  out aindexlist: integerarty

); overload;

procedure mergesort(

  const adata: pointer;

  const asize: Integer;

  const acount: Integer;

  const acompare: sortcomparemethodty;

  out aindexlist: integerarty;

  var refindex: Integer;

  out moved: Boolean

); overload;

procedure mergesort(

  const acount: Integer;

  const acompare: indexsortcomparemethodty;

  out aindexlist: integerarty

); overload;

procedure mergesort(

  const acount: Integer;

  const acompare: indexsortcomparemethodty;

  out aindexlist: integerarty;

  var refindex: Integer;

  out moved: Boolean

); overload;