找了好久，以为是签名问题。原来不是。控件签名与代码安全是两个概念。
function TDitchesTree.GetInterfaceSafetyOptions(const IID: TIID;
pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult;
begin
result:=S_OK;
end;
function TDitchesTree.SetInterfaceSafetyOptions(const IID: TIID;
dwOptionSetMask, dwEnabledOptions: DWORD): HResult;
begin
result:=S_OK;
end;
又找了好久发现CB可以用IObjectSafety，于是想找delphi相关代码，没有找到，查帮助文档，连说明节点都没有。硬着头皮让Com也继承IObjectSafety，提示两个方法没实现，高兴!查原代码，写上实现。编译，说没有返回，那就返回吧Result:=S_OK;
编译，通过! 打开测试的html，结果居然通过了!
function TDitchesTree.GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult;begin result:=S_OK;end;function TDitchesTree.SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, dwEnabledOptions: DWORD): HResult;begin result:=S_OK;end;