一个消息服务器程序，已经服务器端出错

有时是socket 10053,有时是 socket 10054, 程序是在Delphi2007+RemObject编写的，代码写的非差，请大家指点。服务器接收到客户端的休息请求，然后给客户端返回值确认收到消息，并把消息排到队列中，等待批准消息。服务器有一个Timer定时判断是否允许休息（此处对数据库操作比较多），允许休息的就发送给客户端消息！完整的服务端代码我我已经传到www.qiway.net/server.rar ，谢谢大家！