Source position: tpa.pas line 47
procedure QuickTPASort(
var A: TIntegerArray;
var B: TPointArray;
iLo: Integer;
iHi: Integer;
SortUp: Boolean
);