попытка используя Thread работать с WORD через OLE

вобщем окрываю файл тип .doc
затем выделяю, копирую и вставляю в своей форме текст например в РичЕдит....

если делать без Тредов - то Ворд "работает", но блокирует приложение... вобщем некрасиво

попытался окрыть ворд в Треде - не получается.......
т.е. ни чего не происходит

в главной форме:

ThreadWord *Thr = new ThreadWord(true);
Thr->Resume();

в "треде":
void __fastcall ThreadWord::Execute()
{
long word_count;
long index;

my_word = Variant::CreateObject("Word.Application");
my_word.OlePropertySet("Visible", true);

...
...

my_word.OleFunction("Quit");
my_word = Unassigned;
}