Delphi写的简单CS结构的聊天程序，基于P2P技术，使用有Socket控件，所采用的协议为Udp。具备类似QQ聊天模型一样的对话功能。先运行服务端，再运行客户端，示例界面如截图示。