Выгрузка СправочникаКотрагентов 1С в Delphi

[OlgaLeon]

Здравствуйте! Хочу выгрузить справочникКонтрагентов с 1С в Delphi. Всё получается, только вот в 1С есть ещё не только справочники, но и перечисления, которые содержут список "ВидКонтрагента". Возможно кто-то уже с этим сталкивался, подскажите как мне вытащить эти данные с перечисления... Вот так я выгружаю элементы контрагентов.

procedure TForm1.FormCreate(Sender: TObject);
Var
    ResOpen,pf:Integer;
    OleSprav,OsnSprav,vidkontr:OleVariant;
begin
    ShowProgress('Выбрана База Себестоимость');
    DBGrid3.Visible:=False;
    patch1C:='D:\Базы\Себестоимость';
    ResOpen:=Ole1C.Initialize(Ole1C.RMTrade,'/D'+patch1C,'');
    ResOpen:=Ole1C.Initialize(Ole1C.RMTrade,'/D','');
    OleSprav:=Unassigned;
    if not VarIsEmpty(Ole1C) then begin
       OleSprav:=Ole1C.CreateObject('Справочник.Контрагенты');                 
        if not VarIsEmpty(OleSprav) then begin
           if OleSprav.ВыбратьЭлементы>0 then begin
              while OleSprav.ПолучитьЭлемент>0 do begin
                if OleSprav.ПометкаУдаления=0 then begin
                kbmBasaSeb.Append;
                kbmBasaSeb.FieldByName('VID').value:=vidkontr.getattrib('ВидКонтрагента');               
 kbmBasaSeb.FieldByName('Osn').Value:=OsnSprav.getattrib('УсловияОплаты');
                kbmBasaSeb.FieldByName('Code_1C').Value:=OleSprav.getattrib('Код');
                kbmBasaSeb.FieldByName('NAME').Value:=OleSprav.getAttrib('Наименование');
                kbmBasaSeb.FieldByName('NAMEFIN').Value:=OleSprav.getAttrib('ПолноеНаименование');
                kbmBasaSeb.FieldByName('PASPORT').Value:=OleSprav.getAttrib('ПаспортныеДанные');
                kbmBasaSeb.FieldByName('RNN').Value:=OleSprav.getAttrib('РНН');
                kbmBasaSeb.FieldByName('INN').Value:=OleSprav.getAttrib('ИдентификационныйНомер');
                kbmBasaSeb.FieldByName('DATE').Value:=OleSprav.getAttrib('ДатаРождения');
                kbmBasaSeb.FieldByName('ADRESS').Value:=OleSprav.getAttrib('ЮридическийАдрес');
                kbmBasaSeb.Post;
                Application.ProcessMessages;
                ShowProgress('Готово');
                end;
              end;
            end;
           end;
         end;
  kbmBasaSeb.SortFields:='Code_1C';
  kbmBasaSeb.Sort([]);
  OleSprav:=Unassigned;
  Ole1C:=FALSE;
  ShowProgress('Готово');
  end;