Delphi有效处理套接字错误的方法

Question

我正在使用Data snap模型，因此我拥有客户端exe和服务器exe 。 客户端exe需要服务器exe启动并运行以从数据库获取数据。 当服务器进程被终止时，我尝试打开一个表单，该表单需要执行查询，因为服务器未运行我收到套接字错误＃10053 。

我正在寻找的是任何测试应用程序或代码片段来处理套接字错误＃10053。

由于这不是由于我的代码而引发的错误，我想捕获此异常并向用户显示一条消息，说服务器已关闭。

只需注意：我搜索了SO dint中的解决方案。 我在我的exe中makexcept捕获异常并通过邮件发送错误报告。 任何帮助都会非常感激。

更新 我甚至尝试使用ApplicationEvents OnException这是使用单一表单。我try/except阻止几乎所有需要的地方，但寻找替代方案。我有一个计时器检查连接是否有效我想要替代此感谢