Есть код, который переносит одну строку с tdbgrid в Ворд, нужно чтобы переносилась вся таблица

var pword: Variant;
i, j, RowNum : Integer;
xfilename: string;
begin
pword:=CreateOleObject('Word.Application');
pword.visible:=visible;
xfilename:='G:\kurs\praktica\prak\kurs\table.docx';
  pword.Documents.open(xfilename);
 pWord.ActiveDocument.Bookmarks.Item( 'table' ).Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Êîìïëåêòóþùèå').AsString;
 pWord.ActiveDocument.Bookmarks.Item( 'table1').Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Ôèðìà').AsString;
 pWord.ActiveDocument.Bookmarks.Item( 'table2').Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Ìîäåëü').AsString;
 pWord.ActiveDocument.Bookmarks.Item( 'table23').Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Ïàðàìåòð').AsString;
 pWord.ActiveDocument.Bookmarks.Item( 'table24').Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Ìàãàçèí').AsString;
 pWord.ActiveDocument.Bookmarks.Item( 'table25').Range.Text := form4.dbgrd1.DataSource.DataSet.fieldbyName('Öåíà(òåíãå)').AsString;
end;

while not Dataset.EOF do
begin
 ...
   Dataset.Next;
end;