clientsocket问题，急

Question

clientsocket不能连续发送
代码如下，我第一次在另一个函数中发送字串，然后server返回字串，我再发，server再返回，这第二次的交互不能成功，server收不到我第二次发的字串。
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var rec:string;
begin
        rec:=socket.ReceiveText ;
        if copy(rec,1,4)='LIST' then              //server收到我发的字串后返回的字串
         begin
          clientsocket1.Close ;                 
          clientsocket1.open ;
          showmytable(copy(rec,5,length(rec)-4),stringgrid1);     //用返回字串生成一个表
          //sleep(1000);                                          //sleep没有用
          //showmessage('a');
          clientsocket1.Socket.SendText('122^AE^');                //如果上面的showmessage不执行，这句话server就收不到
         end;在线请教，能不能请高手留下qq？我的是：12261436