Как записать в поток памяти и потом извлечь ?

Тестирую простейший пример. Но что-то не получается.
&НаСервере
Процедура ПечатьНаСервере()
    ТабДок = Новый ТабличныйДокумент;
    МестоположениеФайла1  = "d:\Тест.pdf";
    ТабДок.Записать(МестоположениеФайла1 , ТипФайлаТабличногоДокумента.PDF);
    ПотокФайла = Новый ПотокВПамяти();
    ТабДок.Записать(ПотокФайла);
    ДвоичныеДанныеДокумента = ПотокФайла.ЗакрытьИПолучитьДвоичныеДанные();
    АдресВремХран=ПоместитьВоВременноеХранилище(ДвоичныеДанныеДокумента);

    МестоположениеФайла2  = "d:\Тест2.pdf";
    ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВремХран);
    Если ДвоичныеДанные <> Неопределено Тогда
        ДвоичныеДанные.Записать(МестоположениеФайла2);
    КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура Печать(Команда)
    ПечатьНаСервере();
КонецПроцедуры

Первый файл хоть там лист и пустой, но нормальный, а во втором фигня какая-то, приложил скрин