如何用Delphi实现聚合？(100分)

具体为：
已实现一接口和方法（是一已注册的DLL），如何通过新建一接口实现聚合，继承父
接口及其方法（即父接口的方法不用再实现）。
最好能付上势力实例。

小弟是一个COM初学者,正在看包容和聚合这一块的资料,所以想听一听.

attention

unit BinIntf;

interface

type
IOneDBin = interface
['{7856B7E3-EF75-11D2-B3AB-0040F67455FE}']
procedure SetMaxValue(AMaxValue: Integer);
procedure AddItem(AQuantity: Integer; ADescription: WideString; AValue: Integer);
procedure Optimize;
function NextBin: Boolean;
function NextItem(var ADescription: WideString; var AValue: Integer): Boolean;
end;

IOneDBin2 = interface(IOneDBin) //继承父接口及其方法
['{15B382F0-F0E0-11D2-908E-0040F6741DE2}']
function GetName: WideString;
function NumBins: Integer;
function PercentWaste: Double;
end;
const
Class_NextFit: TGUID = '{7856B7E2-EF75-11D2-B3AB-0040F67455FE}';
Class_FirstFit: TGUID = '{E97BFEF7-F664-11D2-9099-0040F6741DE2}';
Class_BestFit: TGUID = '{E97BFEF8-F664-11D2-9099-0040F6741DE2}';

implementation

end.

要聚合一个已注册的DLL接口不知道，不过在源代码中实现聚合倒见过一个聚合类，不知
Lionshy有没有兴趣？

接受答案了.