Source position: tpa.pas line 87
procedure TPACountSort(
var TPA: TPointArray;
const max: TPoint;
const SortOnX: Boolean
);