//指定范围的随机数函数
function Rand(min,max:Integer):Integer;
begin
  randomize;
  Result:=random(max) mod (max-min+1)+min;
end;
//调用
Rand(100,1000);
显示结果是100~1000之间的随机数