delphiTCPIdTcpServerIdTcpClient源代码2个工程文件一个server一个client,server启动后,client连接,再发送消息就可以了