Source position: Img32.pas line 1086
function PerpendicularDistSqrd(
const pt: TPointD;
const line1: TPointD;
const line2: TPointD
):Double;