program project1;

{$mode objfpc}{$H+}

uses
  Unit1;

var
  line1: TLineDef;
  line2: TLineDef;
  x: TPointF;
begin
  x := IntersectLine(line1, line2);
end.