服务器运行时报错“由于系统缓冲区空间不足或列队已满，不能执行套接字上的操作。” 是什么原因

const
  MAX_PACKETSIZE = 2048;
type
  PDataHeader = ^TDataHeader;