Полнотекстовый поиск

Всем привет, подскажите пожалуйста если не трудно. Изучаю 8-ку по книжке Радченко,Хрусталева. Проблема с полнотекстовым поиском. Перечитывала внимательно, переделывала раза 3.Но поиск не работает. Проблема вот в чем. Вот код
&НаКлиенте
Процедура Поиск(Команда)
Искать(0);
КонецПроцедуры

&НаКлиенте
Процедура ПредыдущаяПорция(Команда)
Искать(-1);
КонецПроцедуры

&НаКлиенте
Процедура СледующаяПорция(Команда)
Искать(1);
КонецПроцедуры

&НаКлиенте
Процедура Искать(Направление)
Если ПустаяСтрока(ПоисковоеВыражение) Тогда
Предупреждение("Не задана строка поиска");
Возврат;
КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ИскатьСервер(Направление) Экспорт
СписокПоиска=ПолнотекстовыйПоиск.СоздатьСписок();
СписокПоиска.СтрокаПоиска=ПоисковоеВыражение;

Если Направление=0 Тогда
СписокПоиска.ПерваяЧасть();
ИначеЕсли Направление=-1 Тогда
СписокПоиска.ПредыдущаяЧасть(ТекущаяПозиция);
ИначеЕсли Направление=1 Тогда
СписокПоиска.СледующаяЧасть(ТекущаяПозиция);
КонецЕсли;

РезультатыПоиска.Очистить();
ДЛя Каждого Результат Из СписокПоиска Цикл
РезультатыПоиска.Добавить(Результат.Значение);
КонецЦикла;
РезультатыПоиска=СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст);
ТекущаяПозиция=СписокПоиска.НачальнаяПозиция();
ПолноеКоличество=СписокПоиска.ПолноеКоличество();

Если СписокПоиска.Количество() <>0 Тогда
СообщениеОРезультате="Показаны" + Строка(ТекущаяПозиция+1)+""+Строка(ТекущаяПозиция+СписокПоиска.Количество())+"ИЗ"+Строка(ПолноеКоличество);

Элементы.СледующаяПорция.Доступность=(ПолноеКоличество-ТекущаяПозиция)>СписокПоиска.Количество();
Элементы.ПредыдущаяПорция.Доступность=(ТекущаяПозиция>0);
Иначе
СообщениеОРезультате="Не Найдено";
Элементы.СледующаяПорция.Доступность= Ложь;
Элементы.ПредыдующаяПорция.Доступность= Ложь;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура РезультатПоискаПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
ЭлементHTML=ДанныеСобытия.Event.ScrElement;
Если (ЭлементHTML.id="FullTextSearchListItem")Тогда
НомерВСписке=Число(ЭлементHTML.nameProp);
ВыбраннаяСтрока=РезультатыПоиска[НомерВсписке].Значение;
ОткрытьЗначение(ВыбраннаяСтрока);
СтандарнаяОбработка=Ложь;
КонецЕсли;
КонецПроцедуры
Программа запускается, ошибок не выдает, собственно результат поиска тоже не выдает.Вообщем вопросов куча. Может кто подскажет.