ole_TekDoc := UnAssigned;
  ole_1C := CreateOleObject('V82.COMCONNECTOR');//V82.application
  ole_1C := ole_1C.Connect('srvr=х.х.х.х;ref=Base;usr=Àäìèíèñòðàòîð');

  if not VarIsEmpty(ole_1C) then begin
     ole_Doc := ole_1C.Документы.ЗаявкаНаКассовыйРасход;
     if not VarIsEmpty(ole_Doc) then begin
        ole_TekDoc := ole_Doc.Выбрать();
        n := 0;
        Screen.Cursor := crHourGlass;    { Show hourglass cursor }
        while ole_TekDoc.Следующий() do begin
          memo1.Lines.Add(ole_tekDoc.Номер);
          memo1.Lines.Add(ole_tekDoc.Дата);
          memo1.Lines.Add(ole_tekDoc.Контрагент.НаименованиеПолное);
          memo1.Lines.Add(ole_tekDoc.СуммаДокумента);
          memo1.Lines.Add(ole_tekDoc.Коментарий);

          n:=ole_tekDoc.РасшифровкаПлатежа.Количество;

          tab:=ole_tekDoc.РасшифровкаПлатежа;
          n:=tab.Количество;
          n:=0;
          row:=ole_tekDoc.РасшифровкаПлатежа[n];