SocketAPI文件传输（Delphi）

去年写的一个在Delphi下直接使用SocketAPI函数写的网络文件传输代码，文件的大小不限。由于觉得藏着也没用，所以就拿出来与大家分享。 见笑了。 还不完善，如果有那位给改进了，最好能通知偶一声，一定要拿出来共享。