随机抽签程序delphi原程序经典

闲暇之余写的一个随机抽签的函数，可以用在项目组抽签中！所用第三方组件可以到网上下载！

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

     文件       5102  2009-11-06 09:58  抽奖程序\Project1.dof

     文件         51  2009-11-08 21:42  抽奖程序\Unit1.ddp

     文件      15885  2009-11-08 21:41  抽奖程序\Unit1.~pas

     文件        188  2008-11-10 22:14  抽奖程序\Project1.~dpr

     文件         51  2009-11-08 21:42  抽奖程序\Unit1.~ddp

     文件      28052  2009-11-06 09:58  抽奖程序\Project1.res

     文件      19833  2009-11-08 21:42  抽奖程序\Unit1.dcu

     文件    1798656  2009-11-06 09:58  抽奖程序\Project1.exe

     文件    1788416  2009-11-08 21:42  抽奖程序\DrawPrj.exe

     文件     810442  2009-11-06 09:07  抽奖程序\Unit1.~dfm

     文件        434  2009-11-06 09:58  抽奖程序\Project1.cfg

     文件        227  2009-11-06 10:02  抽奖程序\DrawPrj.dpr

     文件       5102  2009-11-06 10:05  抽奖程序\DrawPrj.dof

     文件        434  2009-11-06 10:05  抽奖程序\DrawPrj.cfg

     文件      17880  2009-11-06 10:05  抽奖程序\DrawPrj.res

     文件    1788416  2009-11-06 10:05  抽奖程序\随机抽签.exe

     文件     810442  2009-11-06 09:07  抽奖程序\Unit1.dfm

     文件      15885  2009-11-08 21:42  抽奖程序\Unit1.pas

     文件       6806  2009-11-05 23:27  抽奖程序\Displayframe.~pas

     文件     536806  2009-11-05 23:30  抽奖程序\Displayframe.~dfm

     文件         51  2009-11-05 23:35  抽奖程序\Displayframe.~ddp

     文件       6806  2009-11-05 23:43  抽奖程序\Displayframe.pas

     文件     536781  2009-11-05 23:43  抽奖程序\Displayframe.dfm

     文件         51  2009-11-06 00:10  抽奖程序\Displayframe.ddp

     文件       6400  2009-11-06 00:45  抽奖程序\Buttonsframe.~pas

     文件     666341  2009-11-06 00:45  抽奖程序\Buttonsframe.~dfm

     文件         51  2009-11-06 00:45  抽奖程序\Buttonsframe.~ddp

     文件       6400  2009-11-06 00:45  抽奖程序\Buttonsframe.pas

     文件     666341  2009-11-06 01:01  抽奖程序\Buttonsframe.dfm

     文件         51  2009-11-06 01:04  抽奖程序\Buttonsframe.ddp

............此处省略5个文件信息