第三次请教版主postren，这次是关于ICS/TWSocket数据接收和发送！！！

Question

http://community.csdn.net/Expert/topic/4863/4863623.xml?temp=.1468164
看之前的帖子，
本来是使用indy的，
但是今天突然，indy 变的只能发送数据，而不能接收数据，
（提示错误好像是  Socket #100005错误）
所以，万般无奈，只好去网上请教高手，
高手提示可以用ICS套件，
采用：
WsUDP: TWSocket;
---------------------
var
   ArrCmd : array of Byte;发送数据：
      WsUDP.Close;
      WsUDP.LocalAddr := '192.168.X.37';
      WsUDP.LocalPort := '8002';
      WsUDP.Addr      := '192.168.X.251';
      WsUDP.Port      := '8001';
      WsUDP.Proto     := 'UDP';      
      WsUDP.Connect;
      WsUDP.Send(ArrCmd,Length(ArrCmd));
---这里发送数据，机器接收都没问题；接收数据（大富翁论坛上得知）：
procedure TFrm1.WsUDPDataAvailable(Sender: TObject; ErrCode: Word);
var
  ArrRcv : array of byte;
  i : Integer;
begin
  SetLength(ArrRcv,0);
  i := 0;
  WsUDP.Receive(@ArrRcv,i);
end;
--程序根本没有执行到这里，不知怎么办了，
现在还没下班，求postren帮帮忙，
环境:WinXp + BDS2006.

Answer 1

接收数据（大富翁论坛上得知）：
procedure TFrm1.WsUDPDataAvailable(Sender: TObject; ErrCode: Word);
var
  ArrRcv : array of byte;
begin
  if ErrCode<>0 then
    exit;  
  SetLength(ArrRcv,WsUDP.RcvdCount);
  WsUDP.Receive(ArrRcv,Length(ArrRcv));
end;

Answer 2

有懂ICS的大哥请出手啊，
急死了，