该程序可以直接运行,利用delphi编写socket通信程序,用到TServerSocket和TClientSocket控件