indy9 idtcpserver 使用tidpeerthread向客户端发送数据如何控制

我将idtcpserver客户端的连接 athread 放到一个数组记录里面, 然后使用 for 循环持续向客户端发送数据,但是因为网络或者资源使用的原因,导致很多丢包的情况(具体是否属于丢包,现在还不是非常清楚,反正客户端的表现就是间隔性的丢失一些包)
Delphi(Pascal) code

for i:=0 to length(clients)-1 do
begin
   try
    tidpeerthread(clients[i].TCPHandle).Connection.writeln(datastr);  //datastr :string; clients:record 
   except
    inc(clients[i].errorcount); //errorcount:integer; 
   end;
end;

大概每秒会有2-3次发送, 客户端会间接性的丢失(没收到)其他部分数据.
我现在大致把问题怀疑是在 
tidpeerthread(clients[i].TCPHandle).Connection.writeln(datastr);上一次没有成功发送的时候 又执行了,所以导致前一个数据丢失? 如果真是这样, 有没有什么办法解决? 或者是其他原因导致的?
谢谢.

在网络情况好的时候,没有出现这种情况, 我尝试使用不同网段模拟公网的环境来排除网络差异的问题, 但是放公网上, 如果一旦出现网络不稳定,或者连接服务器丢包什么的网络错误, 就很容易发生, 同时如果服务器资源使用过多, 比如服务器接收大量连接的瞬间(几秒), 也会造成这种情况.

是丢包还是粘包？