1:
2:

If (Image1.left+10 = Image2.left) or (Image1.left = Image3.left) then
  result:=true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function KollisionL (Shape1, Shape2, Shape3: TShape): Boolean;
begin
 result:=true ;
 If (Shape1.left+Shape1.width >= Shape2.Left) and (Shape2.left+Shape2.width >= Shape1.Left) or
    (Shape1.left+Shape1.width >= Shape3.Left) and (Shape3.left+Shape3.width >= Shape1.Left) 
 then
 result:=false;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  If (key=$44) and (KollisionL (Shape1, Shape2, Shape3))then
  Shape1.left:=shape1.left+10
  else if (key=$44) then
  Shape1.Left:=Shape1.left-5;


  If (key=$41) and (KollisionL (Shape1, Shape2, Shape3)) then
  Shape1.left:=shape1.left-10
  else if (key=$41) then
  Shape1.Left:=Shape1.left+5;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function TLaby.Kollision:Boolean;
  var K:Integer;
      A1,A2,B1,B2:TPoint;
  begin
   Kollision:=False;
   A1.X:=Mensch.Left;A1.Y:=Mensch.Top; // oben links - A1
   A2.X:=Mensch.Left+Mensch.Width;
   A2.Y:=Mensch.Top+Mensch.Height;   // unten rechts - A2
   for K:=1 to 31 do
    begin
     Hindernis:=TImage(FindComponent('Image'+IntToStr(K)));
     B1.X:=Hindernis.Left;B1.Y:=Hindernis.Top; // oben links - B1
     B2.X:=Hindernis.Left+Hindernis.Width;
     B2.Y:=Hindernis.Top+Hindernis.Height;   // unten rechts - B2
     if ((A1.Y<B1.Y) and (B1.Y<A2.Y)) or ((B1.Y<A1.Y) and (A1.Y<B2.Y)) then // Kollision möglich
      if ((B1.X<=A1.X) and (A1.X<=B2.X)) or ((A1.X<=B1.X) and (B1.X<=A2.X)) then
       begin Kollision:=True;exit end;
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TEskiv.Kollision(Ball,Hindernis:TShape):Boolean;  // Ball mit Hindernis
  var P1,P2:TPoint;
      R1,R2:Integer;
  begin
   P1.X:=Ball.Left+Ball.Width div 2;
   P1.Y:=Ball.Top+Ball.Height div 2;
   P2.X:=Hindernis.Left+Hindernis.Width div 2;
   P2.Y:=Hindernis.Top+Hindernis.Height div 2;
   R1:=Ball.Width div 2;
   R2:=Hindernis.Width div 2;
   Result:=sqr(P1.X-P2.X)+sqr(P1.Y-P2.Y)<=sqr(R1+R2) 
  end;