delphi7 产生随机数

function RndNumber(i:integer):integer; //产生随机数的函数
begin
randomize; //每次都不一样，这句必须要
RndNumber:=random(i);
end;