delphi7 多线程测试40个线程

delphi开启40个线程，各不影响，可暂停，结束，但40个线程都运行完的时间明显比一个线程慢，不知为什么

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

     文件        446  2016-12-23 12:02  40个线程测试\Project1.cfg

     文件       2014  2016-12-23 12:02  40个线程测试\Project1.dof

     文件        188  2016-12-23 12:02  40个线程测试\Project1.dpr

     文件     384512  2016-12-23 13:27  40个线程测试\Project1.exe

     文件        876  2016-12-23 11:18  40个线程测试\Project1.res

     文件       6375  2016-12-23 13:27  40个线程测试\Unit1.dcu

     文件        948  2016-12-23 13:27  40个线程测试\Unit1.dfm

     文件       2359  2016-12-23 13:29  40个线程测试\Unit1.pas

     文件        948  2016-12-23 13:27  40个线程测试\Unit1.~dfm

     文件       2359  2016-12-23 13:29  40个线程测试\Unit1.~pas

     目录          0  2016-12-23 13:29  40个线程测试

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

               401025                    11