procedure TForm1.Button1Click(Sender: TObject);
var WordApp,doc,table: Variant; i,j:integer;
begin
  WordApp:=CreateOleObject('Word.Application');
  doc:=WordApp.Documents.Add;
  WordApp.Visible:=true;
  table:=doc.tables.add(
    WordApp.Selection.Range,
    NumRows:=4, // тут ширина и колво-колонок должно быть уже известно.
    NumColumns:=5,

// uses DB;
 
procedure DsMoveTo(dts: TDataSet; index: integer);
begin
  dts.MoveBy(index-dts.RecNo);
end;
 
function DsNotEmpty(inSet: TDataSet): boolean;
begin
  if not inSet.Active then Result:=false else
  Result := Not (inSet.Bof and inSet.eof);
end;
 
procedure DataSetToMSWord(Ds:TDataSet; WordApp,WordDocument:variant);
var i,j,p,c:integer;