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