[Error] $DENYPACKAGEUNIT 'ComServ' cannot be put into a package

很老的代码了，最近用D7 调试了下，

最后错误就这个，网上查了大量资料，没找到解决方法，
论坛里也有 人发布这个代码，不知道有人编译成功没，
这个问题是什么导致的，怎么解决呢。。 谢谢.....