实际上Random是有一个数作为产生随即数的种子，如果没有Randomize则用默认的值，下次调用Random时用上次的随即数作为种子，
Randomize是产生随即数的种子，它是依靠当前系统时间，
没有ShowMessage的话，那么当前时间可能没有变化，所以产生随即数的种子可能没有变，对于一个进程应该只执行一次Randomize就够了;
另外这句话iRan:=Random(8,74)是不是想写为iRan:=Random(874)
Randomize是产生随即数的种子，它是依靠当前系统时间，
没有ShowMessage的话，那么当前时间可能没有变化，所以产生随即数的种子可能没有变，对于一个进程应该只执行一次Randomize就够了;
另外这句话iRan:=Random(8,74)是不是想写为iRan:=Random(874)
我已经把Randomize放在循环的外面，可是还是不行啊。另外，iRan:=Random(8,74)本来是想写为iRan:=RandomRange(8,74)的。
（比如在主窗体创建时）的时候调用一次Randomize；以后就不再调用Randomize了