上面的代碼執(zhí)行的話會產(chǎn)生存取違規(guī)錯誤，是因為對接口置nil時已釋放接口，而FreeAndNil(aObj)會再釋放aIntf一次，而在對aIntf置nil時已釋放了該對象。解決這個問題只要不讓接口干擾對象的生命期就可以了，在Release中只需減引用計數(shù)而不做釋放的動作。

　　function TIntfClass._Release: Integer;

　　begin

　　Result := InterlockedDecrement(FRefCount);

　　end;

　　5、接口的委托(Interface Delegation)

　　分為兩種：

　　1. 對象接口委托;

　　2. 類對象委托。

　　對象接口委托，假如已有下面接口定義：

　　IImplInterface = interface(IInterface)

　　function ConvertToUSD(const iNTD: Integer): Double;

　　function ConvertToRMB(const iNTD: Integer): Double;

　　end;

　　接著有一個類實現(xiàn)了該接口：

　　TImplClass = class(TObject, IImplInterface)

　　private

　　FRefCount: Integer;

　　public

　　function ConvertToUSD(const iNTD: Integer): Double;

　　...

　　end;

　　implementation

　　function TImplClass.QueryInterface(const IID: TGUID; out Obj): HResult;

　　begin

　　if GetInterface(IID, Obj) then

　　Result := 0

　　else

　　Result := E_NOINTERFACE;

　　end;

　　function TImplClass._Release: Integer;

　　begin

　　Result := InterlockedDecrement(FRefCount);

　　if Result = 0 then

　　Destroy;

　　end;

　　... ...

　　現(xiàn)在有另外一個類TIntfServiceClass要實現(xiàn)IImplInterface接口，不用重新定義，只須使用上面的TImplClass就可以：