真想要分，但来晚了。可是问题总是要解决的。
在调试程序时出错误，‘操作无法使用’。
这是在
function ActiveWord:Variant;
begin
try
Result:=Getactiveoleobject('word.application');
except
try
Result:=createoleobject('word.application');
except
messagedlg('word may not be installed', mterror, [mbok], 0);
abort;
end;
end;
end;
时出现，其实这个问题不是什么问题，当没有找到Word时，程序转而去执行except
这时程序就以为是出错了，所以给出了告警。这时可以继续执行程序。
而在退出调试状态后，执行就正常了。这个问题还可以用改变DEBUG设置，让Delphi不出现except告警来解决。
