关于WORD的操作问题,很急.(100分)

我在生成word文件时,总是会出现"在单一线程下,试图在一个以上线种一进行呼叫',错误应该是下一行.
wordapplication1.Documents.AddEmptyParam,EmptyParam,EmptyParam,EmptyParam);
可是我已经在这之前进行了判断
if wordapplication1.Documents.Count<>0 then
begin
showmessage('WORD2000正在处理某个文档。请先关闭该文档，然后再启动。');
wordapplication1.Disconnect ;
exit;
end;

try
Wordapplication1.Connect;
except
MessageDlg('无法连接，也许没有安装Word', mtError, [mbOk], 0);
Abort;
end;

请各位帮忙,谢谢.

你的关键源码？

试过：
procedure TForm1.Button1Click(Sender: TObject);
begin
if wordapplication1.Documents.Count <> 0 then
begin
showmessage('WORD2000正在处理某个文档。请先关闭该文档，然后再启动。');
wordapplication1.Disconnect;
exit;
end;
try
Wordapplication1.Connect;
wordapplication1.visible := true;
wordapplication1.caption := 'delphi automation';
Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam));
except
MessageDlg('无法连接，也许没有安装Word', mtError, [mbOk], 0);
Abort;
end;
end;
没问题。

不行啊,老问题,还是不能解决.
我第一次运行是没有问题,可是再运行就会出现这个错误了.

你不贴出完整的源码无法判断你的问题，我给你的部分是测试过得没问题！

第二次出现问题，是不是没有释放你创建的对象！

我给你不是一段完整程序，程序关闭必须释放创建的对象。
>>第二次出现问题
是什么意思？运行就会出现什么错误？
为什么我没发现？是不是你的其他段程序有问题？见不到你的完整程序，不好判断！！！
linsb3031@0451.com