如何实现在副线程中嵌入ole?(100分)

有一个问题想请教各位：
开发环境：
win2000,delphi 7.0
问题：
在多线程程序中副线程execute 方法中声明一个OleVariant 变量，嵌入ole的时候
会提示错误信息：
project raised exception class EoleSysError with message 标记没有引用存储 ,
process stopped ,use step or run to continue.
补充：
当程序执行到CreateOleObject是就会报错：
如果 对word 操作 Word_Ole := CreateOleObject(’Word.Application’);
也会报同样的错误

我也碰到同样的问题，在调用CreateOleObject(’Excel.Application’);时会报错“尚未调用CoInitialize”，如果找到解决的方法，相互告知