Как правильно написать код в OLE

"Привожу пример кода в Delphi:



procedure TForm1.LoadReport;

var

 doc, comp:olevariant;

begin

 doc := Obj_1C.CreateObject('Документ.GetReport');



 comp:= Obj_1C.CreateObject('Справочник.Computers');

 doc.new;

 comp.FindByDescr('VPN',0,1);



 doc.Computer := comp.getattrib('Наименование');

 doc.newline;

 doc.Objects := 'память';

 doc.Results := 'в порядке';

 doc.write;



end;

Все работает, кроме записи значения в doc.computer.

В документе GetReport реквизит Computer имеет тип Справочник.Computers, но он его не присваивает, хотя код

поиска по наименованию успешен...Код Showmessage(comp.getattrib('Наименование')); показывает ожидаемый результат...



Буду признателен за подсказу и помощь..."