PointsNearEqual

function PointsNearEqual(

  const pt1: TPoint;

  const pt2: TPoint;

  dist: Integer

):Boolean; overload;

function PointsNearEqual(

  const pt1: TPointD;

  const pt2: TPointD;

  distSqrd: Double

):Boolean; overload;