Delphi7 Demo中 Midas Pooler 现金现金 求助！！！

最近公司需要做一个三层连接池，我感觉Demo中的Pooler改成多线程的就可以，但是有两个地方看不懂，请高手指教！
问题1：server_tlb单元， TPooledRDM和TPooler是怎么添加的？这个单元不是自动生成的吗，怎么还有这两个类呢，只要修改了此单元，一保存就会自动消失。
问题2：因为TDCOMConnection发布的时候比较麻烦，所以我决定用TSocketConnection，可是我在客户端的时候用TDCOMConnection就能连接上服务端，
      用TSocketConnection的时候提示CLASS_Pooler没有注册，不知道怎么解决。
哪位高手能帮忙，万分感谢！！！



[ 本帖最后由 wuerhe001 于 2011-8-1 15:54 编辑 ]