Смещение элементов массива при изменении его длины.

[Alex Cones]

Записи (в упрощенном виде):

TJunction = record
   ...
   Occupied:Boolean;
   OccupiedBy:Integer;
   ...
End;
TDetail = record
   ...
   ID:Integer;
   JCount:Integer;
   Junction:Array of TJunction;
   ...
End;
TRobot = record
   ...
   DCount:Integer;
   Detail:Array of TDetail;
   ...
End;

Разработал процедуры соединения деталей и добавления детали к роботу. Никак не могу придумать, как осуществить удаление детали. Ведь тут задача сводится не только к тому, чтобы просто сделать

SetLength(Robot.Detail,Robot.DCount-1);
Dec(Robot.DCount);

Вся сложность в том, что раз детали между собой соединены, то потребуется удаление тех деталей, которые связаны с удаляемой (в сторону увеличения ID, чтобы не удалить все детали в роботе.)
Вот схема:

Как определить соединение деталей? Детали соединяются узлами (тот самый junction), у которого есть свойство Occupied - занят ли узел и свойство OccupiedBy - ID той детали, которая занимает узел.

Ну и наконец сам вопрос: как написать процедуру удаления детали. Хотя б натолкните на мысль.
------------------
Появилась такая мысль: запретить удаление той детали, которая имеет больше одного соединения. Т.е. не находится на краю цепочки.
Тогда встает вопрос: как просто сместить элементы, если удаляется элемент в центре массива.

[Stilet]

В таких случаях делают так:
Есть класс деталь, в котором определен массив или список типа Деталь, дабы сделать эту деталь сборкой.
При удалении этой детали в деструкторе вызывается очистка списка поддеталей. Тут удобно применять TObjectList, в который набивается список входящих в эту сборку деталей. А при освобождении этого компонента он сам освобождает входящие в него детали, и соответственно каскадом освобождаются входящие в его детали поддетали.

Ясен смысл или я путанно пояснил?

Ну лично я так делаю...

[Alex Cones]

Ясен смысл или я путанно пояснил?

О_о А можно самый простой пример? Можно даже не по теме, но чтоб там такая штука была.

P.S. И еще забыл упомянуть, что придется еще менять ID всех деталей, которые подвергались перемещения, чтоб их ID соответствовал номеру, который они занимают в массиве. Эта замена также должна затрагивать ссылки в узлах. (OccupiedBy)