var a: ISuperObject; beign a := so; a.s['name'] := '张三'; a.o['data'] := a; end; 如上代码,这是一个自关联的代码,接口引用计数会错误,从而导致内存泄漏。