Declaration:  GetIntersectPoint(p1x, p1y, p2x, p2y, p3x, p3y, p4x, p4y: Double; var p5x: Double; var p5y: Double): Integer;
Calculates at what point Line 1, given by p1 and p2 intersects with Line 2, given by p3 and p4 and returns the result point in p5. Returns 1 (True) if the lines intersect or 0 (False) if the lines are parallel.

Source Code:

 var
p5x, p5y: double;

Begin
if getintersectpoint(10, 10, 100, 10, 10, 20, 100, 20, p5x, p5y) = 1 then
showmessage('Intersects')
else
showmessage('Parallel');
End;