DCOM的一个出接口对应多个接收器问题（请教高手，难）(200分)

我的一个相当与聊天的一个小程序（局域网下）
[注：有人说可以用别的方法实现聊天程序，我也知道，只为学习COM：）]，
用delphi6做的，ConnectKind:=(ckRunningOrNew)时没问题
但是当把ConnectKind:=(ckRemote)后，把DCOM Server放在别的机器上后出现
了客户端发送消息，服务器端只把此消息返回到发消息的客户端，而别的客户
端没有接收到此消息，本来以为是DCOM权限配置有问题，后来发现不是，
因为在本机上将RemoteMachine:='本机名'后（即用本机的DCOM Server)
也出现此问题，令我百思不得其解，望赐教。
关键代码段如下：
TEventIntf = class(TAutoObject, IConnectionPointContainer, IEventIntf)
private
{ Private declarations }
FConnectionPoints: TConnectionPoints;
FConnectionPoint: TConnectionPoint;
FEvents: IEventIntfEvents;
{ note: FEvents maintains a *single* event sink. For access to more
than one event sink, use FConnectionPoint.SinkList, and iterate
through the list of sinks. }
FObjectID:integer;
public
procedure Initialize;
override;
destructor Destroy;override;
protected
{ Protected declarations }
property ConnectionPoints: TConnectionPoints read FConnectionPoints
implements IConnectionPointContainer;
procedure EventSinkChanged(const EventSink: IUnknown);
override;
procedure SendText(const Text: WideString);
safecall;
function GetEnumerator:IEnumConnections;
end;
function TEventIntf.GetEnumerator:IEnumConnections;
var
Container:IConnectionPointContainer;
ConnectionPoint:IConnectionPoint;
begin

OleCheck(QueryInterface(IConnectionPointContainer,Container));
OleCheck(Container.FindConnectionPoint(AutoFactory.EventIID,ConnectionPoint));
ConnectionPoint.EnumConnections(Result);
end;

procedure TEventIntf.SendText(const Text: WideString);
var
Enum:IEnumConnections;
ConnectData:TConnectData;
Fetched:Cardinal;
begin
Enum:=GetEnumerator;
if Enum<>nil then
begin
while Enum.Next(1,ConnectData,@Fetched)=S_OKdo
begin
if ConnectData.pUnk<>nil then
(ConnectData.pUnk as IEventIntfEvents).OnText(Text);//返回消息给各个客户端
end;
end;
end;

以我估计就是和ConnectKind有关，
如果是ckRunningOrNew，那么服务器中的各连接之间可以互相访问
但如果是ckRemote的话，各连接之间是互相屏蔽的，因此不能相互发送信息

200分都没人要，好吧，
请问斑竹，我自己解决了能否把分数收回？

怎么解决的，能告诉下吗？我最近也被卡在类似的问题下了。
谢谢。 lexiaoyaocyh@hotmail.com