用TServerSocket做C/S聊天室程序的一个错误向高手们请教

最近用TServerSocket和TClientSOcket做一个聊天室，如果client端非正常退出，服务器端就报10061错误，然后程序就关了，在ClientError中把ErrorCode:=0设置了，服务器端的程序还是自动就关闭了，不起任何作用，采用捕获错误的方式也一样。如果客户端正常退出则没有问题。真没招了，哪位高手能帮忙解决一下，只要让服务器端程序不关能继续运行就行。