delphi实现裁剪图片并上传至服务器

在一品威客网上做的一个项目，雇主是个SB，将代码给他自己不会配置环境，现将代码公开。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        263  2017-07-26 15:22  Project1.~dpr

     文件        446  2017-07-31 19:28  Project1.cfg

     文件       2014  2017-07-31 19:28  Project1.dof

     文件        263  2017-07-26 15:22  Project1.dpr

     文件    1000960  2017-07-31 19:27  Project1.exe

     文件       1356  2017-07-26 09:42  Project1.res

     文件         33  2017-07-31 15:13  Unit1.~ddp

     文件       1833  2017-07-31 11:42  Unit1.~dfm

     文件       2130  2017-07-31 15:01  Unit1.~pas

     文件       6712  2017-07-31 15:01  Unit1.dcu

     文件         33  2017-07-31 19:28  Unit1.ddp

     文件       1854  2017-07-31 19:27  Unit1.dfm

     文件       2130  2017-07-31 15:01  Unit1.pas

     文件         33  2017-07-28 20:40  Unit2.~ddp

     文件        747  2017-07-27 15:56  Unit2.~dfm

     文件       3820  2017-07-28 20:29  Unit2.~pas

     文件       8108  2017-07-29 14:52  Unit2.dcu

     文件         33  2017-07-29 14:53  Unit2.ddp

     文件        747  2017-07-27 15:56  Unit2.dfm

     文件       4238  2017-07-29 14:52  Unit2.pas

----------- ---------  ---------- -----  ----

              1037753                    20