如何屏蔽弹出的窗口？(300分)

BCB6，程序用ServerSocket建立一个侦听端口，再用telnet连接此端口。当关闭telnet的时候，程序会弹出错误信息“Asynchronous socket error 10053”，为什么会出现这个信息呢？就算出错，如何不让这个窗口弹出？

10053错误的意思是软件导致连接退出，在telnet段可以先关闭Socket再退出；在服务端可以这样：
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorCode = WSAECONNABORTED then
ErrorCode := 0;
end;

只要在onerror事件里写ErrorCode = 0;就不会弹出系统的错误提示了。

多人接受答案了。