之前测试 还可以的 现在 就不行了 
实在 找不到问题在哪里  快疯了  procedure TFrm_Main.WB_GTDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
   里面的代码 都不触发了 
end;