Source position: GR32_PathsEx.pas line 265
function SqrDistance(
const A: TFloatPoint;
const B: TFloatPoint
):TFloat;