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