一个Delphi写的网络聊天室，使用本地指定的网络端口，打开监听功能后，可实现连接功能，进行消息发送，消息内容包括昵称，这不是一个CS结构的聊天室，不使用客户端和服务端的方式，也可实现聊天，这个例子就比较典型。