提供解决Socket发送/接收数据不稳定的方法！希望大家帮忙提前！(0分)

最近老是有人问Socket发送/接收数据不稳定的问题，他们大多用的是
TServerSocket/TClientSocket。我现在把解决方法给出。希望可以解
决大家的问题。

如果大家看过这对控件的SendBuf/ReceiveBuf方法的help，就会发现：
它们有返回值（具体大家自己看帮助）。这就是问题关键。那些出问题
的代码，大多是只调用一次函数了事，没有注意返回值。

我的方法是：循环调用ReceiveBuf直到返回-1，当返回-1时循环调用
SendBuf。当然，这是大致思想。具体我不细说。我自己使用的相关代码
可以参考下面的帖子里我的回答。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2136774


请不要问无法编译的问题。因为我只贴了部分PAS，没有贴DFM。

希望大家帮忙提前！谢谢！！！

好象灌不了水，呵呵：）