Изменить идентификатор объекта
procedure ChangeLayerCode(aOldLayerCode, aNewLayerCode: integer);
aOldLayerCode
aNewLayerCode