实现delphi2010 socket通信，下载运行即可。