关于delphi中的Socket组件编程问题，如何处理10054(连接重置)异常?

Question

在用Delphi中的组件ServerSocket和ClientSocket进行网络程序开发时，一旦服务器端出现异常非法退出时，造成客户端产生10054(连接重置)的错误，将ErrorCode设置为0并不能再次重新进行连接，即Socket并没有真正关掉。
由于编程需要，尽量不用动态创建和释放ClientSocket控件的方法。
恳请哪位仁兄赐教，分值可以再加！！

Answer 1

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    Socket.Close;
    ErrorCode := 0;
end;测试通过。