哪位高手可以提供有关COM的Facade模式的解决方案(200分)

我用下面的方法建立了几个COM组件和各自的接口
1.建立ActiveX library,
2.建立远程数据模块或TMtsDataModule
3.添加方法完成功能。
但是我想为这些组件提供一个统一的外部接口，想采用Facade模式来建立，
如COM1：procedrue A();
COM2rocedure B();
Com3rocedure C();
如何才能提供facade模式，提供外部调用的接口，而不用具体关心实际的调用组件和方法？
我的mail：yy6666@163.net ;
oicq:38918487
我愿意出高分！随可以给我一个好的答案啊！

gz

wrote a interface ICommonIntf, then
making all of your MtsDataModule
implement this interface
TDBSelectObj = class(TMtsDataModule, IDBSelectObj, ICommonIntf)

IMyInterface=interface
['{2E173B2D-6BE9-4519-8E5F-6DEF400335EC}']
function SayHello:string;
end;

IMyInterface2=interface
['{3FD6CFDF-E028-4FD6-9834-299404C15FFF}']
function SayHello2:string;
end;

TMyObject2=class(TInterfacedObject,IMyInterface2)
function SayHello2:string;
end;

TMyObject=class(TInterfacedObject,IMyInterface,IMyInterface2)
private
FDelgateObj:TMyObject2;
public
//委托使用FDelgateObj对象，实现IMyInterface2
//也就是对IMyInterface2的操作，其实都是FDelgateObj在执行
property DelgateObj:TMyObject2 read FDelgateObj implements IMyInterface2;

constructor Create;
function SayHello:string;
end;