var
Num:integer;
begin
Randomize;//初始化随机种子
Num:=random(10); //随机10以内的数字
showmessage(Inttostr(Num));
end;
转载于:https://www.cnblogs.com/huapox/archive/2010/11/01/3299832.html