Проблема с экспортом

var
i,j,s:integer;
XL,xlb:variant;
begin
XL:=CreateOleObject('Excel.Application');
XL.DisplayAlerts := false;
xlb:=xl.workbooks.add;
xl.visible:=false;
for i:=0 to dbgrd1.FieldCount-1 do
xlb.WorkSheets[1].Cells[1,i+1]:=dbgrd1.fields[i].fieldname;
s:=2;
for i:=0 to dbgrd1.DataSource.DataSet.RecordCount-1 do
begin
for j:=0 to dbgrd1.DataSource.DataSet.FieldCount-1 do
xlb.WorkSheets[1].Cells[s,j+1]:=dbgrd1.DataSource.DataSet.Fields[j].AsString;
inc(s);
dbgrd1.DataSource.DataSet.Next;
end;
xl.visible:=true;
end;

procedure TForm1.word1Click(Sender: TObject);
var i,p:integer;
begin
   W:= CreateOleObject('Word.Application');
   W.Documents.Add;
   Range:= W.ActiveDocument.Range;
   Range.Font.Size:= 12;
   Range.Font.Name:= 'Times New Roman';
  Range.Font.Bold:= false;
  Range.ParagraphFormat.Alignment:= 1;//ii oaio?o
  Range.InsertAfter('шапка');
  Range.InsertAfter(Char(#13));
  Range:= W.ActiveDocument.Range(Range.End-1,Range.End-1);
  dm.QSelAbit.Close;
  dm.QSelAbit.Open;
  dm.QSelAbit.First;
  p:=0;
  while not dm.QSelAbit.Eof do
    begin
      inc (p);
      dm.QSelAbit.Next;
    end;
  if p=0 then
  begin
    Showmessage('Ia iaeaai caienae'); exit;
  end;
  W.ActiveDocument.Tables.Add(Range,p+1,6);
  Table:= W.ActiveDocument.Tables.Item(1);
  Table.Columns.Item(1).Width:= 30;
  Table.Cell(1,1).Range.Text:= '?';
  Table.Columns.Item(2).Width:= 100;
  Table.Cell(1,2).Range.Text:= 'O.E.I';
  Table.Columns.Item(3).Width:= 90;
  Table.cell(1,3).Range.text:='Oi?ia iao?aiey';
 
  Table.Columns.Item(4).Width:= 50;
  Table.cell(1,4).Range.text:='Iie';
 
  Table.Columns.Item(5).Width:= 90;
  Table.cell(1,5).Range.text:='Oaeaoii';
 
  Table.Columns.Item(6).Width:= 110;
  Table.cell(1,6).Range.text:='Ii?oa';
 
  Table.Rows.Item(1).Range.Font.Bold:= true;
  dm.qselabit.first;
  Range.Font.Bold:= false;
  for i:=1 to p do
  begin
    Table.Cell(i+1,1).Range.Text:= inttostr(i);
    Table.Cell(i+1,2).Range.Text:= DM.QSelAbitFIO.value;
    Table.Cell(i+1,3).Range.Text:= dm.qselAbitFORMA_OBYCHENIA.value;
    Table.Cell(i+1,4).Range.Text:= dm.qselAbitPOL.value;
    Table.Cell(i+1,5).Range.Text:= dm.qselAbitMOB_TEL.value;
    Table.Cell(i+1,6).Range.Text:= dm.qselAbitEL_ADRESS.value;
    dm.qselAbit.next;
  end;
  Table.Rows.Item(1).Range.ParagraphFormat.Alignment:= 1;
  w. ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'Abit.doc');
  w.documents.open(ExtractFilePath(Application.ExeName)+'Abit.doc');
end;