tangram2.6(XE2)\framework框架加载包异常 调试的地方

function TTangramModule.LoadModule: THandle;
begin
  try
    Result:=0;
    case GetModuleType of
      mtBPL:Result:=SysUtils.LoadPackage(self.FModuleFileName);
      mtDLL:Result:=Windows.LoadLibrary(Pchar(self.FModuleFileName));
    end;
  except
    on e:Exception do
      if SysService.QueryInterface(ILog,log)=S_OK then
      begin
        log.WriteLog(e.Message);
      end;
  end;
end;