Delphi使用Indy写的简单聊天实例代码，分服务端和消息发送端，代码还有些问题，主要出在引用PublicUn模块，如果不想用的话，可把此模块引用删除，然后用showmessage 代替InformationDlg和ErrorDlg，再把tit去掉即可编译运行。其实本代码重点不是PublicUn，而是Indy的使用，希望朋友们认真参考一下。-Delphi use Indy write the simple chat examples of code, sub-server and message sending side code also some problems, mainly out in reference PublicUn module, if do not want to use, then, this module references deleted, then the the ShowMessage place of InformationDlg and ErrorDlg tit can be removed and then compile and run. In fact, the focus of this code is not PublicUn, but the use of Indy, I hope you will give serious consideration to.