Ошибка при выгрузке таблицы DBGrid в WORD

[sid1868]

нужно выгрузить таблицу DBGrid в WORD, прописываю следующий код бъед ошибку

var
fname:OleVariant;
i,j,k : integer;
a,b,c : OleVariant;
wa : TWordApplication; //WordApplication
wd : TWordDocument; //WordDocument
begin
//ñîçäàíèå íîâîãî äîêóìåíòà
  wa:= TWordApplication.Create(reportForm);
  wa.Connect;
  wa.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  wd:= TWordDocument.Create(mainForm);
  wd.ConnectTo(wa.ActiveDocument);
//ïðîðèñîâêà òàáëèöû
  k:=1;
  wd.Tables.Add(wd.Range(a), mainForm.partners.RecordCount+1 , 10, EmptyParam, EmptyParam);
  wd.Tables.Item(k).Borders.InsideLineStyle := wdLineStyleSingle;
  wd.Tables.Item(k).Borders.OutsideLineStyle := wdLineStyleSingle;

  wd.Tables.Item(k).Cell(1,1).Range.Text:= 'nama';
  wd.Tables.Item(k).Cell(1,2).Range.Text:= 'data_zacl';
  wd.Tables.Item(k).Cell(1,3).Range.Text:= 'data_rac';
  wd.Tables.Item(k).Cell(1,4).Range.Text:= 'tarif';
  wd.Tables.Item(k).Cell(1,5).Range.Text:= 'tip';
  wd.Tables.Item(k).Cell(1,6).Range.Text:= 'kateg';
  wd.Tables.Item(k).Cell(1,7).Range.Text:= 'dogovor';
  wd.Tables.Item(k).Cell(1,8).Range.Text:= 'plat';
  wd.Tables.Item(k).Cell(1,9).Range.Text:= 'primich';
  For i:=1 To Form2.ADOTable1.RecordCount Do
  begin
    Form2.ADOTable1.RecNo:=i;

    if (Form2.ADOTable1.FieldValues['nama']<>null) then
      wd.Tables.Item(k).Cell(i+1,1).Range.Text:= Form2.ADOTable1.FieldValues['name'];
    if (Form2.ADOTable1.FieldValues['data_zacl']<>null) then
      wd.Tables.Item(k).Cell(i+1,2).Range.Text:= Form2.ADOTable1.FieldValues['data_zacl'];
    if (Form2.ADOTable1.FieldValues['data_rac']<>null) then
      wd.Tables.Item(k).Cell(i+1,3).Range.Text:= Form2.ADOTable1.FieldValues['data_rac'];
    if (Form2.ADOTable1.FieldValues['tarif']<>null) then
      wd.Tables.Item(k).Cell(i+1,4).Range.Text:= Form2.ADOTable1.FieldValues['tarif'];
    if (Form2.ADOTable1.FieldValues['tip']<>null) then
      wd.Tables.Item(k).Cell(i+1,5).Range.Text:= Form2.ADOTable1.FieldValues['tip'];
    if (Form2.ADOTable1.FieldValues['kateg']<>null) then
      wd.Tables.Item(k).Cell(i+1,6).Range.Text:= Form2.ADOTable1.FieldValues['kateg'];
    if (Form2.ADOTable1.FieldValues['dogovor']<>null) then
      wd.Tables.Item(k).Cell(i+1,7).Range.Text:= Form2.ADOTable1.FieldValues['dogovor'];
    if (Form2.ADOTable1.FieldValues['plat']<>null) then
      wd.Tables.Item(k).Cell(i+1,8).Range.Text:= Form2.ADOTable1.FieldValues['plat'];
    if (Form2.ADOTable1.FieldValues['primich']<>null) then
      wd.Tables.Item(k).Cell(i+1,9).Range.Text:= Form2.ADOTable1.FieldValues['primich'];
  end;
  For i:=1 To Form2.ADOTable1.RecordCount Do
    wa.Visible:=true;
  wa.Disconnect;
  Form2.ADOTable1.Filtered:=false;
 Form2.ADOTable1.Filter:='';

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Stilet]

Мдя... Ты явно любитель таить секреты государства...
Так держать - шпионы не пройдут.