Source position: tpa.pas line 57
procedure SortATPAFromSize(
var a: T2DPointArray;
const Size: Integer;
CloseFirst: Boolean
);