procedure THIUseActiveX.Init;
var pCtl: PMyOleCtl; tiEvents: ITypeInfo;
begin
  try
    pCtl := NewMyOleCtl(FParent, _prop_CLSID); Control := pCtl;
    FSite.CreateScriptEngine(slVBScript);
    FSite.ControlIUnknown := pCtl.OleObject;
    tiEvents := pCtl.GetEventTypeInfo;
    if tiEvents<>nil then begin
      FEventHandler := TMyEventHandler.Create(Self, tiEvents);
      InterfaceConnect(pCtl.OleObject, FEventHandler.IID, FEventHandler, FEventConnection);
    end;
  except