Приветствую,  у меня появилась эта проблема, не могли бы
вы мне помочь ее
решить. Заранее благодарен, Александр.

Итак, описание проблемы.
Есть несколько компонентов TImage перемещаемых в Run -Time
с помощью
процедур

Var DragPoint : TPoint;

procedure TForm.ImageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
begin
    IF ssLeft in Shift
    Then Begin
              DragPoint.x:=x;
              DragPoint.y:=y;
          End;
end;

procedure TForm.ImageMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  IF ssLeft in Shift
  Then Begin
              x:=x-DragPoint.x ;
              y:=y-DragPoint.y ;
              TControl(Sender).Top:=TControl(Sender).Top+Y
;
              TControl(Sender).Left:=TControl(Sender).Left
+x;
        End;
end;


Нужно чтобы при нажатии кнопки BitBtn1 была выполнена
проверка пересекаются
ли 2 или более из компонентов Timage . И если да то
вывести сообщение какие
компоненты пересекаются. Не подскажите как это сделать.