用Delphi调用WORD时怎么动态生成表格，并给单元格中填写内容呢？

Question

DELPHI 的报表工具太不好用了我想把结果输出到WORD中让用户去编辑，但有点问题：procedure TForm1.Button1Click(Sender: TObject);
var
 Rng:variant;
 NRows,NCols,i,j:integer;
begin
  NRows:=3;
  NCols:=4;
  msWord:=CreateOleObject('Word.Application');
  msWord.Documents.Add();
  msWord.Visible:=True;  msWord.ActiveDocument.Range(0,0);
  //  msWord.ActiveDocument.Range.InsertParagraphAfter;
  msWord.ActiveDocument.Range.Font.Name:='黑体';
  msWord.ActiveDocument.Range.Font.Size:=20;
  msWord.ActiveDocument.Range.InsertAfter('客户联系表');
  msWord.ActiveDocument.Range.InsertAfter(#13);
  msWord.ActiveDocument.Range.ParagraphFormat.Alignment:=wdAlignParagraphCenter;  Rng:=msWord.ActiveDocument.Range(6,6);
  msWord.ActiveDocument.Range.Font.Name:='宋体';
  msWord.ActiveDocument.Range.Font.Size:=12;  msWord.ActiveDocument.Tables.add(Range:=Rng,NumRows:=NRows,NumColumns:=NCols);  For i:=1 to NRows do
    For j:=1 to NCols do
       msWord.ActiveDocument.Tables[1].Columns[j].Cells[i].Range.Text:=IntToStr(i*j);
   // 最后这一句总是出错！
end;请高手指点！

Answer 1

引用msWord.Documents.Add();
后，提示如下错误信息：该如何解决
Not enough actual parameters

Answer 2

这可能是因为add方法的参数有错误，你改成以下这样试试
var filename:olevariant;
begin
..
filename:='';
wordapplication1.Documents.Add(filename,emptyparam,emptyparam,emptyparam);