[Delphi] Как предотвратить столкновение обьектов

[Kolhan]

Задравствуйте, постановка задачи такая:
Есть n-е количество Shape-в на форме они движутся кто влево кто в право кто вверх кто вниз. Нужно предотвратить их столкновение. Если в за 5 пикселей в том направлении котором движется объект Shape обнаружен такой же Shape нужно остановит, дождаться пока не исчезнет припятсвие и двигаться дальше.

PS: Shape обладает дополнительными свойством Speed
Движение происходит так. например движение вправо Shape[i].left:=Shape[i].Left+Shape[i].speed

[evg_m]

Если в за 5 пикселей в том направлении котором движется объект Shape обнаружен такой же Shape нужно остановитmcz

if share1.right+5<sharex.left then share1.stop else share1.go

[Kolhan]

Сообщение от evg_m

Если в за 5 пикселей в том направлении котором движется объект Shape обнаружен такой же Shape нужно остановитmcz

if share1.right+5<sharex.left then share1.stop else share1.go

а как определить какой из них ShapeX ведь Shape создаются динамически и их может быть штук 200