При столкновении между image переместить другой Image

[Алексей_2012]

Здравствуйте! На форме есть два Timage, если один из Timage столкнется с другим, а пользователь дальше тащит картинку, то передвинуть тот, с которым столкнулся Timage допустим есть image2 и image3, пользователь таскает по форме image2 и image2 столкнулся с image3, при этом если пользователь продолжает перемещать image2, и объекты по прежнему совмещены между собой, то image2 должен переместится вместе с image3, ну то есть как бы image2 толкает image3

procedure tform1.proverkas;
begin
if (Image3.left=image2.left) then
Image3.left:=Image3.left+Image2.left
else
if (Image3.top=image2.top) then
Image3.top:=Image3.top+Image2.top;
else
Exit;
end;

[evg_m]

как узнать о препятствии справа от Image2
12.jpg
аналогично проверять слева, сверху и снизу.