急急！！！给高分！！

在delphi中创建word文挡，出现内存不足的提示请问一下是怎么回事？
以下是部分代码：
......
word_sj : variant;
...........
word_sj:=createoleobject('word.application');
        word_sj.documents.open(ExtractFileDir(Application.Exename) + '\stda.doc');