Как заполнить таблицу значений на форме.

Есть такой код (на форме тз присутствует)
Процедура Сформировать(тз)
спр=СоздатьОбъект("Справочник.Материалы");
спр.ВыбратьЭлементы();
Пока спр.ПолучитьЭлемент()=1 Цикл
Если Лев(СокрЛП(Врег(спр.Наименование)),3)<>Лев(СокрЛП(спр.НаименованиеРЗ),3) Тогда
тз.НоваяСтрока();

тз.код=спр.Код;
тз.Наименование=спр.Наименование;
тз.Код_Р3=спр.НомерР3;
тз.Наименование_Р3=спр.НаименованиеРЗ;
Форма.Обновить(1);
Сообщить("Добавили "+спр.Код);

КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии();
тз.НоваяКолонка("код","Строка");
тз.НоваяКолонка("Наименование","Строка");
тз.НоваяКолонка("Код_Р3","Строка");
тз.НоваяКолонка("Наименование_Р3","Строка");
тз.УдалитьСтроки();
Форма.Обновить();
КонецПроцедуры
При запуске обработки по идее тз должна заполнятся но всё тормозится с сообщением
Сформировать(<<?>>)
Недостаточно фактических параметров
В чём ошибка? Подскажите как правильно!