PointLineDist

function PointLineDist(

  const P: TPoint;

  const A: TPoint;

  const B: TPoint

):Integer; overload;

function PointLineDist(

  const P: TPoint;

  const A: TPoint;

  const B: TPoint;

  out Q: TPoint;

  out Inside: Boolean

):Integer; overload;