Source position: tpa.pas line 51
procedure SortATPAFromFirstPoint(
var a: T2DPointArray;
const From: TPoint
);