菜鸟想用ics的WSocket1控件做个tcp的练习，我写的怎么不对啊？客户端给服务器发送了字符串，服务器怎么不反应啊？(50分)

服务器端：
procedure TForm1.Button1Click(Sender: TObject);
begin
WSocket1.Proto:= 'tcp';
WSocket1.Addr:= '0.0.0.0';
WSocket1.Port:= '10004';
WSocket1.Listen;
end;

procedure TForm1.WSocket1DataAvailable(Sender: TObject; Error: Word);
begin
showmessage('有消息了');
end;
客户端：

procedure TForm1.Button1Click(Sender: TObject);
begin
WSocket1.Proto := 'tcp';
WSocket1.Addr := '127.0.0.1';
WSocket1.Port := '10004';
WSocket1.Connect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WSocket1.SendStr('eeee');
end;
按理说，客户端发送'eeee'字符串后，服务器会弹出('有消息了');的字样啊，怎么不弹出啊？

用INDY吧,DELPHI自己带的有DEMO

接受答案了.