DistanceSqr

function DistanceSqr(

  const pt1: TPoint64;

  const pt2: TPoint64

):Double; overload;

function DistanceSqr(

  const pt1: TPointD;

  const pt2: TPointD

):Double; overload;