非常感谢张教主的再一次支持，后来我也考虑采用了mywyn的方式。
至于我提到的接收块大于预期大小，后来我发现原本我这样：
Size:=socket.ReceiveLength;
Socket.ReceiveBuf(Buff,Size);
然后将数量为Size的BYTE写入文件中。
后来发现，原来Size:=socket.ReceiveLength中得到的SIZE并不准确，Size:=Socket.ReceiveBuf(Buff,BUFFLENGTH);这样取到的SIZE才是真正的缓冲区接收大小，后来这样：
Size:=Socket.ReceiveBuf(Buff,BUFFLENGTH);//BUFFLENGTH设置得足够大，似乎只要大于8192便足够
再将该SIZE数目的BYTE写入文件中，便正常了。
非常感谢二位，现在我又遇到一个问题，提问到：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1296165
呵呵，请二位多多赐教，小弟感激不尽！
