Source position: tpa.pas line 56
procedure SortATPASize(
var a: T2DPointArray;
const BigFirst: Boolean
);