Webbrowser execCommand 与 ExecWB的执行条件

      近日做一程序，内嵌TWebBrowser，当用户在browser内select一部分内容，想要copy时，可以使用以下命令： 
       FMsgDoc2.execCommand('copy',false,0);
        或者
       self.WebBrowserMsg.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT,   EmptyParam,EmptyParam)

      但仅仅是加上这些命令，并不能生效，结果也不能将选中的文字复制了剪贴板上，要解决此问题，必须在uses里引用：ActiveX，并且加上如下代码（最好放在unit的end之前）：

initialization
  OleInitialize(nil);
  finalization
   try
    OleUninitialize;
  except
  end;