关于tsrversocket传输的问题

Question

while  not query1.Eof do
       begin
           tserversocket.Socket.SendText(query.fieldbyname('username').AsString');
           query1.Next;
       end; 
找到了很多的username字段的内容，然后循环的发送（while），每次发送一个
但是在接受段确是收到了字段的集合，
比如第一次发张三，第二次发李四，第三次发王五
在接收端收的时候是张三，然后李四，再是王五，但是现在却是张三李四王五了，怎么解决