Модули graphabc и abcObjects пересечение

uses graphabc,abcobjects;
var x,y,x1,y1:integer;
r:rectangleabc;
procedure keyDown(key:integer);
begin
if key=38 then//38 и 40 это стрелки в верх и в низ
begin
y-=5;
r.moveto(x,y);;
end;
if key=40 {r.Intersect(line(280,300,20,300)=false КАААААК ?} then
begin
y+=5;
r.moveto(x,y);
end;
end;
begin
x:=90;
y:=100;
x1:=110;
y1:=100;
r:=new rectangleabc(x,y,x1,y1,clgreen);
line(280,300,20,300);
onkeydown:=keydown;
end.

uses
  graphabc, abcobjects;
 
var
  x, y, x1, y1: integer;
  r, myLine: rectangleabc;
 
procedure keyDown(key: integer);
begin
  if key = 38 then
  begin
    y -= 5;
    r.moveto(x, y);;
  end;
  if (key = 40) and (not r.Intersect(myLine)) then
  begin
    y += 5;
    r.moveto(x, y);
  end;
end;
 
begin
  x := 90;
  y := 100;
  x1 := 110;
  y1 := 100;
  r := new rectangleabc(x, y, x1, y1, clgreen);
  myLine := new RectangleABC(20, 300, 280, 2, clBlack);
  onkeydown := keydown;
end.

uses
  graphabc, abcobjects;
 
function intersection(start1, end1, start2, end2: Point): boolean;
begin
  var sz1 := new System.Drawing.Size(start1.X, start1.Y);
  var sz2 := new System.Drawing.Size(start2.X, start2.Y);
  var dir1: Point := end1 - sz1; // start1;
  var dir2: Point := end2 - sz2;
  
  var a1: integer := -dir1.y;
  var b1: integer := +dir1.x;
  var d1: integer := -(a1 * start1.x + b1 * start1.y);
  
  var a2: integer := -dir2.y;
  var b2: integer := +dir2.x;
  var d2: integer := -(a2 * start2.x + b2 * start2.y);
  
  var seg1_line2_start: integer := a2 * start1.x + b2 * start1.y + d2;
  var seg1_line2_end: integer := a2 * end1.x + b2 * end1.y + d2;
  
  var seg2_line1_start: integer := a1 * start2.x + b1 * start2.y + d1;
  var seg2_line1_end: integer := a1 * end2.x + b1 * end2.y + d1;
  
  result := not ((seg1_line2_start * seg1_line2_end >= 0) or 
                 (seg2_line1_start * seg2_line1_end >= 0));
end;
 
type
  MyRectangleABC = class(RectangleABC)
    function IsIntersects(start, finish: Point): boolean;
    begin
      var LT := new Point(Left, Top);
      var RT := new Point(Left + Width, Top);
      var RB := new Point(Left + Width, Top + Height);
      var LB := new Point(Left, Top + Height);
      result :=
        intersection(LT, RT, start, finish) or
        intersection(RT, RB, start, finish) or
        intersection(RB, LB, start, finish) or
        intersection(LB, LT, start, finish);
    end;
  end;
 
var
  r: myrectangleabc;
  
  LnStart: Point := new Point(20, 300);
  LnFinish: Point := new Point(280, 350);
 
procedure keyDown(key: integer);
begin
  if (key = 38) then r.MoveOn(0, -5);
  
  if (key = 40) and not r.IsIntersects(LnStart, lnFinish) then r.MoveOn(0, 5);
end;
 
begin
  r := new myrectangleabc(90, 100, 110, 100, clgreen);
  Line(LnStart.X, LnStart.Y, lnFinish.X, lnFinish.Y);
  
  onkeydown := keydown;
end.