Ошибка при выгрузке Word

[sid1868]

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

g,k : integer;
a : OleVariant;
wa : TWordApplication; //WordApplication
wd : TWordDocument; //WordDocument
begin
//создание нового документа
  wa:= TWordApplication.Create(Form2);
  wa.Connect;
  wa.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  wd:= TWordDocument.Create(Form2);
  wd.ConnectTo(wa.ActiveDocument);
//прорисовка таблицы
  k:=1;
  wd.Tables.Add(wd.Range(a), Form2.ADOTable1.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 g:=1 To Form2.ADOTable1.RecordCount Do
  begin
    Form2.ADOTable1.RecNo:=g;

    if (Form2.ADOTable1.FieldValues['nama']<>null) then
      wd.Tables.Item(k).Cell(g+1,1).Range.Text:= Form2.ADOTable1.FieldValues['name'];
    if (Form2.ADOTable1.FieldValues['data_zacl']<>null) then
      wd.Tables.Item(k).Cell(g+1,2).Range.Text:= Form2.ADOTable1.FieldValues['data_zacl'];
    if (Form2.ADOTable1.FieldValues['data_rac']<>null) then
      wd.Tables.Item(k).Cell(g+1,3).Range.Text:= Form2.ADOTable1.FieldValues['data_rac'];
    if (Form2.ADOTable1.FieldValues['tarif']<>null) then
      wd.Tables.Item(k).Cell(g+1,4).Range.Text:= Form2.ADOTable1.FieldValues['tarif'];
    if (Form2.ADOTable1.FieldValues['tip']<>null) then
      wd.Tables.Item(k).Cell(g+1,5).Range.Text:= Form2.ADOTable1.FieldValues['tip'];
    if (Form2.ADOTable1.FieldValues['kateg']<>null) then
      wd.Tables.Item(k).Cell(g+1,6).Range.Text:= Form2.ADOTable1.FieldValues['kateg'];
    if (Form2.ADOTable1.FieldValues['dogovor']<>null) then
      wd.Tables.Item(k).Cell(g+1,7).Range.Text:= Form2.ADOTable1.FieldValues['dogovor'];
    if (Form2.ADOTable1.FieldValues['plat']<>null) then
      wd.Tables.Item(k).Cell(g+1,8).Range.Text:= Form2.ADOTable1.FieldValues['plat'];
    if (Form2.ADOTable1.FieldValues['primich']<>null) then
      wd.Tables.Item(k).Cell(g+1,9).Range.Text:= Form2.ADOTable1.FieldValues['primich'];
  end;

  end;

[kta87]

Какая ошибка? Язык? Среда разработки?

[Serge_Bliznykov]

зачем ещё одну тему создавать?! :[
чем Вас ваша предыдущая не устроила?!
Ошибка при выгрузке таблицы DBGrid в WORD