就这么一句都没法执行，一旦执行，cpu就占到99％左右，然后就是等待，没结果，咋弄？该如何解决

就这么一句都没法执行，一旦执行，cpu就占到99％左右，然后就是等待，没结果，咋弄？

      try
        WordApp   :=   GetActiveOleObject( 'Word.Application ');//在此每次都提示错误
    except
        //未运行则运行之
        WordApp   :=   CreateOleObject( 'Word.Application ');//但在此缺能执行
    end;
        WordApp.Visible:=True;  
        WordDoc:=WordApp.Documents.Add;

        //try
        //     Wordapplication.Connect;//关键的一步就是过不去，但是屏蔽了还是
//能打开word？？？？？？？？？？？？？？？？？？
      //   except
        //     MessageDlg( 'Word   may   not   be   installed ',   mtError,   [mbOk],   0);
        //     Abort;
        //end;
        //Wordapplication.Visible   :=   True;
        //WordApplication.Caption   :=   'Delphi   automation ';
 

      除了在我公司电脑上，还在同事电脑，个人电脑都试过，非常简单的这一句，所以就出现了调用后，cpu就占到99％左右，然后就是等待，没结果，程序就也不动了，咋弄？

[解决办法]
if not GetActiveOleObject( 'Word.Application ') then
WordApp := CreateOleObject( 'Word.Application ');//但在此缺能执行