Высчитать ростояние между Shape

[PaVeL111]

Ребята, у меня рамнодмно появляются Шейпы таким образом:
for i:=1 to x do
begin
shape[i].Left:=Random(440);
shape[i].Top:=Random(384);
shape[i].Visible:=True;

end;

макс 50.

Каким образом можно узнать пару наимение удаленных из них?
Напишите плизз код, буду оч благодарен!
Зарание спасибо.

[Пепел Феникса]

вы не умеете вычислять расстояние между точками?

[PaVeL111]

Мы только перешли на Делфи, рание были на Cрр , и ещо с делфи не так знаком...

[DoDge_VipeR]

(x,y) --координаты точки
расстояние м.у точками 1 и 2
(x[1]-x[2])^2+(y[1]-y[2])^2
шуруйте по массиву shape - ов и попарно считайте расстояние между ними

x[i]: = shape[i].left;
y[i]:=shape[i].top;

[PaVeL111]

Щас попробую... если не выйдет - отпишусь

[PaVeL111]

Все, уже все сделал, спс всем кто помог!