好人帮忙看一下，释放接口实现对象时报错？！

Question

type
  IShowMsg = interface
    procedure ShowCalssName;
  end;  T_A= class(TInterfacedObject,IShowMsg)
  public
      procedure ShowCalssName;
  end;
//------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  II : IShowMsg;
  ca : T_A;
begin
  ca := T_A.Create;
  try
    II := ca;
    II.ShowCalssName;
    II := nil;
  finally
    //FreeAndNil(ca); //释放时报错！
  end;
end;

Answer 1

Interface默认为遵循COM规范，而从TInterfacedObject继承而来的interface实现对象（你的例子中就是T_A)都有一个引用计数，当引用计数为0时，对象被构释，所以II := nil;
这一句就释放了你创建的ca了，所以当你再一次释放ca，就会出错

Answer 2

谢谢无之心
我去查了一些Delphi联机帮助，确实是这样