[delphivs1c]

Приветствую.
Нужный раздел не нашел, пишу сюда.
У кого есть опыт работы с 1с из Delphi?
Не как не получается преобразовать значение ResQ_ole.Тип к читабельному виду. Ссылка идет на объект, как достучаться до свойства объекта в котором хранится строковое значение имени типа (например: Телефон, Адрес, АдресЭлектроннойПочты и т.д.)

Код:

 
  OleQuery := s1C8_ole.NewObject('Запрос');
  sQueryText:='';
  sQueryText:=sQueryText+'  ВЫБРАТЬ ';
  sQueryText:=sQueryText+'  КонтактнаяИнформация.Объект КАК Объект, ';
  sQueryText:=sQueryText+'  КонтактнаяИнформация.Представление КАК Представление, ';
  sQueryText:=sQueryText+'  КонтактнаяИнформация.Тип КАК Тип ';
  sQueryText:=sQueryText+'  ИЗ ';
  sQueryText:=sQueryText+'  РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация ';
  sQueryText:=sQueryText+'  ГДЕ ';
  sQueryText:=sQueryText+'  Объект = &Объект1 ';

  OleQuery.УстановитьПараметр('Объект1', Result[0].Contragent);
  OleQuery.Текст := sQueryText;
  ResQ_ole := OleQuery.Выполнить().Выбрать();

  while ResQ_ole.Следующий() do
  begin
     // Условие не выполняется, выдает ошибку     
     if ResQ_ole.Тип = s1C8_ole.Метаданные.Перечисления.ТипыКонтактнойИнформации.ЗначенияПеречисления.Получить(1) //телефон
     then
      ShowMessage('Оооооо да заработало !!! Как я рад! Даст ист фантастиш')
   end