Вытащить приходные документы из 1С 7.7 (на Дельфи)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    ListBox2: TListBox;
    Button2: TButton;
    ComboBox1: TComboBox;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  select,olebuf,Ole1C: OleVariant;
  Contrag, BankSch, RaschSch, Nomenkl, VidNomenkl : OleVariant;
  VariantNalog, StavkaNDS, StavkaNP, EdIzm: OleVariant;
  Doc,Roznica : OleVariant;
  BuhSchet: OleVariant;
  Version1C: OleVariant;
  IsOper, BoolYes: OleVariant;
  textquery:string;
implementation
uses ComObj;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
select:=ole1c.CreateObject('Запрос');
textquery:='|Период с 01.05.11 по 01.09.11;';
textquery:=textquery+'|Обрабатывать НеПомеченныеНаУдаление;';
textquery:=textquery+'|ТекущийДокумент = Документ.ОтчетККМ.ТекущийДокумент;';
textquery:=textquery+'|НомерДок = Документ.ОтчетККМ.НомерДок;';
textquery:=textquery+'|ДатаДок = Документ.ОтчетККМ.ДатаДок;';
textquery:=textquery+'|Склад= Документ.ОтчетККМ.Склад.Код;';
textquery:=textquery+'|Группировка НомерДок;';
if select.Выполнить(textquery)=0 then
showmessage('ошибка!');
while select.Группировка(1) = 1 do begin
doc:=select.ТекущийДокумент;
doc.ПолучитьСтроку();
while doc.Номенклатура()=1 do
listbox2.items.add(Doc.Íîìåíêëàòóðà);
end;
end;

doc.ВыбратьСтроки();

while select.Группировка(1) = 1 do begin
doc:=select.ТекущийДокумент;
doc.ВыбратьСтроки();
doc.ПолучитьСтроку();
while doc.Номенклатура()=1 do
listbox2.items.add(Doc.Номенклатура);
end;

doc.ВыбратьСтроки();

procedure TForm1.Button4Click(Sender: TObject);
begin
select:=ole1c.CreateObject('Документ.ПоступлениеТМЦРозница');
if select.ВыбратьДокументы('01.05.2011', '01.09.2011')>0 then
while select.ПолучитьДокументы>0 do begin
doc:=select.ТекущийДокумент;
doc.ВыбратьСтроки();
while doc.ПолучитьСтроку() =1 do
listbox2.items.add(doc.Номенклатура);
 Application.ProcessMessages;
 end;
end;