Delphi多线程实现文件拷贝

Delphi多线程实现文件拷贝， 自己写的，代码很规范。

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

     文件        434  2013-07-24 22:41  MutiThread\MyThread.cfg

     文件       2014  2013-07-24 22:41  MutiThread\MyThread.dof

     文件        188  2013-07-24 03:12  MutiThread\MyThread.dpr

     文件     398848  2013-07-24 22:36  MutiThread\MyThread.exe

     文件        876  2013-07-24 03:12  MutiThread\MyThread.res

     文件       9401  2013-07-24 22:36  MutiThread\Unit1.dcu

     文件         51  2013-07-24 22:41  MutiThread\Unit1.ddp

     文件       2089  2013-07-24 22:25  MutiThread\Unit1.dfm

     文件       6575  2013-07-24 22:36  MutiThread\Unit1.pas

     文件         51  2013-07-24 22:21  MutiThread\Unit1.~ddp

     文件       1917  2013-07-24 22:19  MutiThread\Unit1.~dfm

     文件       6207  2013-07-24 22:21  MutiThread\Unit1.~pas

     目录          0  2014-02-16 11:46  MutiThread

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

               428651                    13