1:
2:
3:
4:

1 --> 5
2 --> 5
3 --> 5
4 <-> 5					

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

function KollTest;
var i, j : integer;
begin
  result := false;
  with Form1 do
  begin
    for i := 0 to 3 do
      for j := i+1 to 4 do
        if Kollision(imgArray[i], imgArray[j]) then
        result := true;  
  end;
end;					

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

function KollTest: Boolean;
var
  i: Byte;
begin
  result := false;
  with Form1 do
  begin
    for i := Low(imgArray) to High(imgArray) do
      if imgArray[i] <> img then
        if Kollision(img, imgArray[i]) then 
        begin
          result := true;
          break;
        end;
  end;
end;					

1:
2:
3:
4:
5:
6:

- TImages als Kugeln betrachten (mit Mittelpunkt und Radius)
- Kollision zwischen den 2 Kugeln erkennen (geht bei Kugeln auch viel einfacher als bei Rects)
- Vektor zwischen den 2 Kugeln bestimmen
- eine der beiden Kugeln so lange in Richtung des Vectors verschieben, bis sie nicht mehr kollidieren
  - Anmerkung: letzten Punkt könnte man auch ausrechnen
        - neuer Punkt von Kugel 1 = Punkt Kugel 2 + Normierter Vektor * (Radius Kugel 1 + Raduis Kugel 2)					

1:
2:

Delta x = (L1 + B1/2) - (L2 + B2/2) 
Delta y = (T1 - H1/2) - (T2 - H2/2)