jdzdsyy的博客

TIdTcpServer和TIdTcpClient内网通讯聊天小程序，可实现内网之间的聊天功能，包含全部源码，Delphi Xe7编译通过，可作为TIdTcpServer和TIdTcpClient范例使用。

亲测 Delphi XE2可用，但没有源码的啊。