Source position: lclproc.pas line 173
function ComparePoints(
const p1: TPoint;
const p2: TPoint
):Integer;