如何实现在副线程中嵌入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’);
也会报同样的错误

//进入COM环境。
CoInitialize(nil);
try
try
Word_Ole := CreateOleObject('Word.Application');
......
finally
Word_Ole:=Unassigned;
end;
finally
//离开COM环境。
CoUninitialize;
end;

谢谢你wangzai6280；为你加上100分 ^_^