Не сохраняется значение Хранилища значений

Здравствуйте.
Подскажите, в чём ошибка.
С формы документа открываю произвольную форму. На ней есть форматированный документ. Пишу что то в нем. Закрываю форму. При закрытии формы делаю:

&НаКлиенте
Функция ПередатьЗначенияПриЗакрытии()
    СтруктураПараметров = Новый Структура;
    СтруктураПараметров.Вставить("ДатаСоздания",         ?(ЗначениеЗаполнено(ДатаСоздания), ДатаСоздания, ТекущаяДата()));
    СтруктураПараметров.Вставить("ДатаРедактирования",  ТекущаяДата());
    СтруктураПараметров.Вставить("ТекстКомментария",     Комментарий.ПолучитьТекст());
    СтруктураПараметров.Вставить("ТекстКомментарияХЗ",  ПолучитХЗ(Комментарий));
    СтруктураПараметров.Вставить("УИД",                 ?(ЗначениеЗаполнено(УИД), Строка(УИД), Строка(Новый УникальныйИдентификатор)));

    Возврат СтруктураПараметров
КонецФункции

&НаСервере
Функция ПолучитХЗ(Комментарий)
    ХЗ = Новый ХранилищеЗначения(Комментарий);
    АдресВремХран = ПоместитьВоВременноеХранилище(ХЗ, Новый УникальныйИдентификатор);
    Возврат АдресВремХран;
КонецФункции

в форме владельца получаю данные параметры и добавляю в табличную часть:

&НаКлиенте
Процедура ДобавитьИзменитьКомментарийПослеЗакрытияФормыКомментария(Результат, СтруктураПараметров) Экспорт
    МассивСтрок = Объект.Комментарии.НайтиСтроки(Новый Структура("УИД", Результат.УИД));
    Если МассивСтрок.Количество() > 0 Тогда
        Для каждого СтрокаТЧ Из МассивСтрок Цикл
            ОснРеквизит = Объект;
            ЗаполнитьТЧКомментарииНаСервере(Результат,ОснРеквизит);

            КопироватьДанныеФормы(ОснРеквизит,Объект)
        КонецЦикла;
    Иначе
        ОснРеквизит = Объект;
        ЗаполнитьТЧКомментарииНаСервере(Результат,ОснРеквизит);

        КопироватьДанныеФормы(ОснРеквизит,Объект)
    КонецЕсли;
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗаполнитьТЧКомментарииНаСервере(Результат,ОснРеквизит)
    ОбъектЗначение = ДанныеФормыВЗначение(ОснРеквизит, Тип("ДокументОбъект.дамТехническиеЗадания"));
    МассивСтр = ОбъектЗначение.Комментарии.НайтиСтроки(Новый Структура("УИД", Результат.УИД));
    Если МассивСтр.Количество() > 0 Тогда
        Для каждого ЭлМ Из МассивСтр Цикл
            ХЗ = ПолучитьИзВременногоХранилища(Результат.ТекстКомментарияХЗ);
            Если ХЗ <> Неопределено Тогда
                ТекстКомм = ХЗ.Получить().ПолучитьТекст();
                Если ЗначениеЗаполнено(ТекстКомм) Тогда
                    ЭлМ.ТекстКомментарияХЗ = ХЗ;
                    ТекстКомм = ХЗ.Получить().ПолучитьТекст();
                    ЭлМ.ТекстКомментария   = ?(ТекстКомм <> Неопределено, ТекстКомм,"");
                    ЭлМ.ДатаРедактирования = ТекущаяДата();
                КонецЕсли;

            КонецЕсли;
        КонецЦикла;
    Иначе
        Если ЗначениеЗаполнено(Результат.ТекстКомментария) Тогда
            СтрТЧ = ОбъектЗначение.Комментарии.Добавить();
            СтрТЧ.ДатаСоздания = ТекущаяДата();
            СтрТЧ.ДатаРедактирования = ТекущаяДата();
            СтрТЧ.ТекстКомментария = Результат.ТекстКомментария;

            ХЗ = ПолучитьИзВременногоХранилища(Результат.ТекстКомментарияХЗ);

            СтрТЧ.ТекстКомментарияХЗ = ХЗ;

            СтрТЧ.УИД = Результат.УИД;
        КонецЕсли;
    КонецЕсли;

    ЗначениеВДанныеФормы(ОбъектЗначение, ОснРеквизит);
КонецПроцедуры

но если после этого посмотреть - реквизит тч пустой