D7实现的SOCKET实例，用阻塞模式实现自动交互

BCB6实现阻塞模式的SOCKET实例（待完善），若谁完善了请回发一份给我。