Вопрос по прилипанию объектов

[SnJon]

Имеется 2 объекта на форме, которые можно свободно перемещать по форме, нажав на них мышкой.
Вопрос - Как сделать, чтобы объекты прилипали друг к другу.

В этой теме нашел прилипание к верхнему и левому краю.

На примере Image:

if image3.Top+image3.Height+1>image2.Top then
image3.Top:=image2.Top-image3.Height-1;//прилипание к верхнему краю 

    if image3.left+image3.width+1>image2.left then
image3.left:=image2.left-image3.width-1;  //прилипание к левому краю

Как сделать прилипание к нижнему и правому краю?

Заранее благодарен

[SnJon]

Никто не знает?

[SnJon]

Знающие люди, помогите пожалуйста