Source position: tpa.pas line 48
procedure QuickATPASort(
var A: TIntegerArray;
var B: T2DPointArray;
iLo: Integer;
iHi: Integer;
SortUp: Boolean
);