delphi的随机数的产生及运算