请问socket处理数据的一个机制，要怎么控制才对呢？大家都会遇到的问题

服务端要给多个客户端发10个数据包，数据包里含有包序号，当给客户端
发送包时，要等客户端将收到的包序号返回正确才能发下一个包，10个包
都发完表示对这个客户端操作结束
问题是：当给A客户端发的同时也在给B客户端发，导致包序号乱而无法正
确完成对多个客户端同时发送成功我在接收部份的处理：
var
serialNO:integer;//返回的包序号
recv:string;//收到返回的包序号
begin
...//接收处理,取出返回的包序号
if CurNO=SerialNO then //当返回的包序号正确
   CurNO:=CurNO+1;// 下一个包序号
   SendPackAge(CurNO);//发送函数发下一个包
end;  
 发送部份的处理:
SendPackAge(curno:integer)
begin
//发送包
end;