delphi + 1С бухгалтерия 8

[velovich]

превет, буду рад, если кто-нибудь подскажет по вопросам, в которые я уперся:

рабочий пример, выбирает весь список контактов:

ole_TekDoc:=base1C.Справочники.КонтактныеЛица.Выбрать();
while ole_TekDoc.Следующий() do begin
 stringlist1.add(ole_TekDoc.Фамилия);
end;

идем дальше, хочется, чтобы выбирались только лица одного контрагента, но выбираются все:

ole_kontr:=base1C.Справочники.Контрагенты.НайтиПоКоду('000000030');
ole_TekDoc:=base1C.Справочники.КонтактныеЛица.Выбрать(,ole_kontr);
while ole_TekDoc.Следующий() do begin
 stringlist1.add(ole_TekDoc.Фамилия);
end;

"invalid variant operation"
не понял как делать подобное:

ole_vidlic:=base1C.Перечисления.ВидыКонтактныхЛиц.КонтактноеЛицоКонтрагента;
if ole_TekDoc.ВидКонтактногоЛица=ole_vidlic then stringlist1.Add(ole_TekDoc.Фамилия);

так же не пойму, как из записи контактного лица получить код хозяина, типа:

stringlist1.add(ole_TekDoc.ОбъектВладелец.Код);