Удалить элемент дерева значений

Есть реквизит формы ДеревоЗначений соответственно оно отображено и на форме как Элементы.Дерево, есть так же ТабличныйДокумент на форме в который из Дерево перемещаются элементы дерева.
Документ1

Товар1
Товар2

Документ2

Товар1
Товар2
Товар3

задача при перетаскивании Элементов из дерева (Товар1, Товар2 и т.д.), что бы эти элементы удалялись из дерева.
Выполняем

Если Элементы.Дерево.ТекущиеДанные=Неопределено Тогда
                    Возврат;
КонецЕсли;

ЭлементыТекущегоУровняИерархии=?(Элементы.Дерево.ТекущиеДанные.ПолучитьРодителя()=Неопределено, 
ДеревоОтгрузка.ПолучитьЭлементы(), Элементы.Дерево.ТекущиеДанные.ПолучитьРодителя().ПолучитьЭлементы());
 
ТекИндекс=0;
 
Пока ЭлементыТекущегоУровняИерархии[ТекИндекс]<>Элементы.Дерево.ТекущиеДанные Цикл
ТекИндекс=ТекИндекс+1;
КонецЦикла;

ЭлементыТекущегоУровняИерархии.Удалить(ТекИндекс);