如何释放实现了某接口的类实例！按如下情况释放为何会出错

[softme]

type
IDescendant = interface(IAncestor)
procedure P2;
end;

TSomething = class(TInterfacedObject, IDescendant)
procedure P1;
end;

var
D: IDescendant;
something: tsomething;

implementation

{$R *.dfm}
procedure TSomething.P1;
begin
ShowMessage('实现接口IDescendant的类TSomething的P1');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
something := TSomething.Create;
D := something;
D.P1;
something.free //执行该语句出错误？为何?
end;

[墨梅无痕]

释放接口用nil就可以了：
Something := nil;

[墨梅无痕]

不好意思，一时脑子胡涂，说错了。

[softme]

谢谢 ok

[墨梅无痕]

接口不需要你显式的释放，Delphi会为你处理接口的Destroy。
但如果你没有使用接口，就是说，把
D := something;
D.P1;
两句注释掉，仅仅使用接口的实现类，那么是需要Free的。

哎呀，脸有点发烫呀！^_^