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

[sdzeng]

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;

[sdzeng]

人人为我，我为人人啊！
兄弟姐妹们！
知道的回复一下，要不我今天连觉都睡不好了：）

[alphax]

Interface默认为遵循COM规范，而从TInterfacedObject继承而来的interface实现对象（你的例子中就是T_A)都有一个引用计数，当引用计数为0时，对象被构释，所以

II := nil;
这一句就释放了你创建的ca了，所以当你再一次释放ca，就会出错

[sdzeng]

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