求助，那位大哥快帮帮小妹！WordApplication.connect

Delphi6开发。
程序中将数据输出到word，并在word内打印。安装在win2000的机器上后，每次启动软件，word打印几次后。就出现“wordapplication.connect”异常，word无法启动。若此时点击“开始－新建文档”则显示错误信息“无法注册这篇word文档”
请问这是什么原因。代码如下：
procedure TableToWord;
var WordApp:TWordApplication;
    WordDoc:TWordDocument;
    dotFName:OleVariant;
    docFName:OleVariant;
    oInfo:TInfo;
    otbInfo:TTbInfo;
    i:integer;
    ItemIndex:OleVariant;
begin
  try
    WordApp:=TWordApplication.Create(nil);
    WordDoc:=TWordDocument.Create(nil);
    WordApp.Connect;
  except
    MessageDlg('Word可能没有正确安装!',mtError,[mbOk],0);
    exit;
  end;
  for i:=1 to WordApp.Documents.Count do
  begin
    ItemIndex:=i;
    if WordApp.Documents.Item(ItemIndex).Name=ExtractFileName(docFileName) then
    begin
      MessageDlg('当前Word窗口中已打开一个名为"' + ExtractFileName(docFileName) +'"的文件，'+#13#10+
             '请先将它关闭！(如需保留该文件，请重命名该文件。)',mtInformation,[mbOk],0);
      exit;
    end;
  end;
  dotFName:=dotFileName;
  docFName:=docFileName;
   WordDoc.ConnectTo(WordApp.Documents.Add(dotFName,EmptyParam,EmptyParam,EmptyParam));
  WordDoc.SaveAs(docFName);
  WordApp.Activate;
  WordApp.Visible:= True;
  WordApp.disconnect;
end;