有关ClientSocket和ServerSocket的问题，请高手指点，谢谢！(30分)

我现在用ClientSocket和ServerSocket这两个控件进行Socket通讯，Port都是8003，ClientType都是阻塞方式。我用SendText这个函数发送字符串，我想知道如何验证已经发送成功了？另外我知道在阻塞方式下是不会触发OnClientRead这个事件的，但是我已经把TServerClientThread中ReActivate过程中一段错误代码（呵呵，我这么认为）FClientSocket.OnSocketEvent := HandleEvent;
FClientSocket.OnErrorEvent := HandleError;导致TServerSocket的onClientRead事件无法触发。将上面的两行代码改为：FServerSocket.OnSocketEvent := HandleEvent;
FServerSocket.OnErrorEvent := HandleError;就可以触发TServerSocket的onClientRead事件了；但是我改完以后，仍然没有反应，我就不知道是无法发送了还是无法接收了，清高手指点，谢谢！

http://www.swaysoft.com/developer/srcdetail.asp?flag=2&id=187
使用TServerSocket与TClientSocket的案例（双端口技术）
看看？？

在你的工程中seachpath加入修改后ScktComp.pas的路径

接受答案了.