TIntfServiceClass = class(TObject, IImplInterface)

　　private

　　FImplService: IImplInterface;

　　//FSrvObj: TImplClass; //如果是用類對象委托的話

　　public

　　Constructor Create; overload;

　　Destructor Destroy; override;

　　Constructor Create(aClass: TClass); overload;

　　property MyService: IImplInterface read FImplService implements IImplInterface;

　　// property MyService: TImplClass read FSrvObj implements IImplInterface; //如果是用對象委托的話。

　　end;

　　實(shí)現(xiàn)如下：

　　constructor TIntfServiceClass.Create;

　　begin

　　FImplService := TImplClass.Create;

　　end;

　　constructor TIntfServiceclass.Create(aClass: TClass);

　　var

　　instance: TImplClass;

　　begin

　　instance := TImplClass(aClass.NewInstance);

　　FImplService := instance.Create;

　　end;

　　destructor TIntfServiceClass.Destroy;

　　begin

　　FImplService := nil; //遵照TImplClass使用引用計(jì)數(shù)來控制對象生命周期，看TImplClass的Destroy實(shí)現(xiàn)。

　　inherited;

　　end;