[Страдалецъ]

Есть более простой способ вычислить столкновение прямоугольников:

Код:

Var
  R: TRect;
...
 if IntersectRect(R, Image1.BoundsRect, Image2.BoundsRect)
 then ShowMessage('Collision')