DistanceSqrd

function DistanceSqrd(

  const pt1: TPoint;

  const pt2: TPoint

):Double; overload;

function DistanceSqrd(

  const pt1: TPointD;

  const pt2: TPointD

):Double; overload;