При экспорте отчета в Word первая запись добавляется в строку с заголовками

procedure TForm1.BitBtn32Click(Sender: TObject);
var
MsWord,Table:Variant;
i,j:integer;
begin
dbgrid9.DataSource.DataSet.First;
MsWord:=CreateOleObject('Word.Application');
MsWord.Visible:=False;
MsWord.Documents.Add;
MsWord.Selection.Font.Name:='Times New Roman';
MsWord.Selection.Font.Size:='10';
MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range,
dbgrid9.DataSource.DataSet.RecordCount, dbgrid9.DataSource.DataSet.FieldCount);
Table:=MsWord.ActiveDocument.Tables.Item(1);
Table.Style:='Сетка таблицы';
dbgrid9.DataSource.DataSet.First;
for j:=0 to dbgrid9.Columns.Count-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrid9.Fields[j].Displaylabel);
for i:=0 to dbgrid9.DataSource.DataSet.RecordCount-1 do
 
begin
for j:=0 to dbgrid9.Columns.Count-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrid9.DataSource.DataSet.Fields[j].AsString);
dbgrid9.DataSource.DataSet.Next;
MsWord.Visible:=True;
end;
MsWord:=UnAssigned
end;

for j:=0 to dbgrid9.Columns.Count-1 do
Table.Cell(i+1,j+2).Range.InsertBefore(dbgrid9.DataSource.DataSet.Fields[j].AsString);