Source position: tpa.pas line 78
procedure LinearSort(
var tpa: TPointArray;
cx: Integer;
cy: Integer;
sd: Integer;
SortUp: Boolean
);