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