Как работать из Delphi с регистром 1С через OLE

if not VarIsEmpty(s1C8_ole) then
begin OleReg:=s1C8_ole.РегистрыНакопления .ОстаткиТоваровОрганизаций;
Sel_ole := OleReg.Выбрать();
while Sel_ole.Следующий() do
begin
//Здесь и возникает проблема, ошибка"Method Номенклатура not supported by Sel_ole", но правда
Sel_ole.Количество получается считать,
ListBox1.Items.Add(' '+Trim(Sel_ole.Номенклатура));
end;
end;

     OleOtchet:=s1C8_ole.Отчеты.ОтчетОстаткиИОбороты;
     Sel_ole:=OleOtchet.Создать();
     Sel_ole.ПолучитьФорму().Открыть();

OleOtchet:=s1C8_ole.Отчеты.ОтчетОстаткиИОбороты;
Sel_ole:=OleOtchet.Создать();
Sel_ole.ВыполнитьКакуюТоФункциюИзМодуляОтчета();

     OleOtchet:=s1C8_ole.Отчеты.ОтчетОстаткиИОбороты;
     Sel_ole:=OleOtchet.Создать();
     Sel_ole.СформироватьОтчет();//Тут вроде запустили отчет
 
     Rez:=Sel_ole.ПостроительОтчета.Результат;//Берем результат отчета
     Select := Rez.Выбрать();//ВыборкаИзРезультатаЗапроса
     While select.Следующий() do
      begin
        s:= VarToStr(select.Номенклатура);
        ShowMessage(s);// И тут его клинит с такой ошибкой Invalid variant type conversion
      end;
    end;

s:= VarToStr(s1C8_ole.String(select.Номенклатура));