Source position: tageometry.pas line 57
function IsPointOnLine(
const AP: TPoint;
const A1: TPoint;
const A2: TPoint
):Boolean;