Delphi中怎么得到随机数

var

Num:integer;

begin

Randomize;//初始化随机种子

Num:=random(10);   //随机10以内的数字

showmessage(Inttostr(Num));

end;