关于clientsocket和serversocket的传送数据问题

我在serversokcet端连续发送20条记录，而clientsocket端最多只能接收到2条记录  
为什么？应如何解决这个问题？（发送端的记录肯定已经读出并且已发送了）  
 
//clientsocket  
procedure  TForm1.ClientSocket1Read(Sender:  TObject;  
   Socket:  TCustomWinSocket);  
   var  
   data:Tstringlist;  
   myrec:string;  
begin  
   data:=Tstringlist.Create;  
   myrec:=Socket.ReceiveText;  
   data.Text:=myrec;  
   if  data.Values['bj']='2'  then  
   begin  
   tm[tihao]:=data.Values['tm'];  
   tihao:=tihao+1;  
 end;  
   data.Free;  
end;  
 
 
//serversocket  
procedure  TForm1.ServerSocket1ClientRead(Sender:  TObject;  Socket:  TCustomWinSocket);  
   var  
   ……
   begin  
     
…………
//以下代码连续发送20条记录给clientsocket,  
for  i:=1  to  20  do  
   begin  
     data2:=Tstringlist.Create;  
     adoquery1.RecNo:=random(sumtihao)+1;  
     data2.Values['bj']:='2';  
     data2.Values['tm']:=adoquery1.Recordset.Fields.Item[1].Value;  
     socket.SendText(data2.text);  
     data2.Free;    
   end;  
 
end;  
end;