IntersectPoint

function IntersectPoint(const ln1a, ln1b, ln2a, ln2b: TPointD; out ip: TPointD): Boolean;

Given 4 points representing 2 lines, finds the intersection point of these 2 lines (if there is a single point).