紧急求助，恳请热心高手帮助！(200分)

我用delphi调有word生成word文档，在win2000和有的98下，office2000下正常，但是在有的
机器win98下运行程序被告知，不能启动服务，有的说数值超出范围，不能调有word,不知哪位高手遇到过这类情况，如何解决？
调用代码：
var
wapp, wdoc: variant;
tempj: integer;
begin
try
wapp := getactiveoleobject('word.application');
except
wapp := createoleobject('word.application');
end;
wapp.Documents.add;
......


另：如何能够让office97也好使，运行在office97下告知不支持automatic.

急！！！！

>>运行在office97下告知不支持automatic.
Office97可以的呀，我曾经实验过，只是部分属性不支持而已。
try
wapp := getactiveoleobject('word.application');
except
try
wapp := createoleobject('word.application');
except
exit;
end;
end;

>> wapp, wdoc: variant;
wapp, wdoc: Olevariant;

提前，请求帮助！