如何避免网络连接断开时，出现系统异常对话框

Question

在Delphi的socket通信中，创建了一个socket并和服务器
    建立了连接。但当我把计算机的网线拔掉时，我的软件老
    是弹出一个系统异常对话框，即使使用TRY来抓取异常也
    没用。请问怎样才能不出现该对话框？

Answer 1

我是在一个线程里进行socket的读写操作啊。
在读的时候，我的线程阻塞在读操作，此时
我拔掉网线，总是会弹出该对话框。

Answer 2

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode:=0;
end;