Source position: tageometry.pas line 78
function PointDistSq(
const A: TPoint;
const B: TPoint
):Integer;function PointDistSq(
const A: TDoublePoint;
const B: TDoublePoint
):Double;