关于delphi7的组播控件(100分)

delphi7中自带了组播控件IdIPMCastServer和IdIPMCastClient，可是试来试去发现总是无法触发IdIPMCastClient相关的read事件，不知道有没有人用过这个控件，代码基本上是这样的
client端：
var
idsh: TIdSocketHandle;
begin
idsh:=IdIPMCastClient1.Bindings.Add;
idsh.IP:='192.168.0.243';
idsh.Port:=5000;
IdIPMCastClient1.MulticastGroup:='224.0.0.1';
IdIPMCastClient1.Active:=true;
end;

server端：
IdIPMCastServer1.MulticastGroup:='224.0.0.1';
IdIPMCastServer1.Port:=5000;
IdIPMCastServer1.Active:=true;
IdIPMCastServer1.Send('hello');
以上代码始终无法触发IdIPMCastClient1的OnIPMCastRead事件，到底问题在哪儿？

自己写一个组播也不复杂的嘛