Source position: tpa.pas line 88
procedure TPACountSortBase(
var TPA: TPointArray;
const maxx: TPoint;
const base: TPoint;
const SortOnX: Boolean
);