太莫名其妙了，近來被Delphi的接口氣死了，請看以下代碼（注意黑體及紅色）：
type
IInterface1 = interface
end;
TClass1 = class(TInterfacedObject, IInterface1)
destructor destroy; override;
end;
TForm1 = class(TForm)
Button1: TButton;
PRocedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
class1: IInterface1;//注意這裡是接口IInterface1 ，不是類TClass1 ，TClass1是沒有這個問題出現的
public
{ Public declarations }
end;
implementation
{$R *.dfm}
{ TClass1 }
destructor TClass1.destroy;
begin
ShowMessage('Destroy!');
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
class1 := TClass1.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
class1 := nil; //就是這裡，他會自動跳到destroy那裡釋構。
//如果class1是類TClass1，則不會跳到destroy那裡去。
//為什麼？為什麼？
end;