OLEObject obj1C,spr
long ll_status
boolean lb
string s,s1,s2,ls_1CPath

obj1C = CREATE OLEObject
ll_status = obj1C.ConnectToNewObject("V77.Application")
if ll_status <>  0  then
  MessageBox(String(ll_status), 'Ошибка подключения к 1С')
  return
else
  //Путь до конфигурации 1С
  ls_1CPath = "C:\1C\CONFIG"
  //Здесь можно передавать имя пользователя и пароль и указать,
  // чтобы splash screen не выскакивал 
  lb =  obj1C.Initialize(obj1C.RMTrade, "/D ~"" + ls_1CPath, "~"") 
  if not lb then
    MessageBox('', 'Ошибка подключения к 1С')
    return
  end if
end if
s = "Справочник.Контрагенты" 
spr = obj1C.EvalExpr('СоздатьОбъект("' + s + '")')
spr.ВыбратьЭлементы( 0 );
do while spr.ПолучитьЭлемент( 1 ) =  1 
  if spr.ПометкаУдаления() =  1  then continue
  s1 = spr.Код
  s2 = spr.Наименование
loop
spr.DisconnectObject()
obj1C.DisconnectObject()

DESTROY spr
DESTROY obj1C