Как оптимизировать сохранение данных на серверной форме?

Добрый день!
Есть обработка

&НаСервере
Процедура ПоискНаСервере()
    Список = ПолнотекстовыйПоиск.СоздатьСписок(СтрокаПоиска);
    Список.ПерваяЧасть();
    ВсегоНайдено = Список.ПолноеКоличество();
    Если Список.СлишкомМногоРезультатов()  Тогда
        Сообщить("СлишкомМногоРезультатов! Усеки!");
        Возврат;
    КонецЕсли;

    Для каждого Найдено Из Список Цикл

        Строка = Результат.Добавить();
        Строка.Значение = Строка(Найдено.Значение);
        Строка.Объект = Найдено.Значение;

    КонецЦикла;
    Адрес = ПоместитьВоВременноеХранилище(Список,УникальныйИдентификатор);

    ТекущийИнтервал = Строка(Список.НачальнаяПозиция()) +" - " + Строка(Список.НачальнаяПозиция()+список.Количество());

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

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

&НаСервере
Процедура ВпередНаСервере()
    Список = ПолучитьИзВременногоХранилища(Адрес);

    Попытка
        Список.СледующаяЧасть();
    Исключение
        Сообщить("Больше нет элементов!");
        Возврат;
    КонецПопытки;

    Результат.Очистить();
    Для каждого Найдено Из Список Цикл

        Строка = Результат.Добавить();
        Строка.Значение = Строка(Найдено.Значение);
        Строка.Объект = Найдено.Значение;

    КонецЦикла;
    Адрес = ПоместитьВоВременноеХранилище(Список,УникальныйИдентификатор);

    ТекущийИнтервал = Строка(Список.НачальнаяПозиция()) +" - " + Строка(Список.НачальнаяПозиция()+список.Количество());

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

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

&НаСервере
Процедура НазадНаСервере()
    Список = ПолучитьИзВременногоХранилища(Адрес);

    Попытка
        Список.ПредыдущаяЧасть();
    Исключение
        Сообщить("Это начало!");
        Возврат;
    КонецПопытки;

    Результат.Очистить();
    Для каждого Найдено Из Список Цикл

        Строка = Результат.Добавить();
        Строка.Значение = Строка(Найдено.Значение);
        Строка.Объект = Найдено.Значение;

    КонецЦикла;
    Адрес = ПоместитьВоВременноеХранилище(Список,УникальныйИдентификатор);

    ТекущийИнтервал = Строка(Список.НачальнаяПозиция()) +" - " + Строка(Список.НачальнаяПозиция()+список.Количество());

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

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

ПоместитьВоВременноеХранилище - это подходящее решение? Как бы сделали Вы?