Source position: tpa.pas line 77
procedure SortCircleWise(
var tpa: TPointArray;
const cx: Integer;
const cy: Integer;
const StartDegree: Integer;
SortUp: Boolean;
ClockWise: Boolean
);