var Num:integer; begin Randomize;//初始化随机种子 Num:=random(10); //随机10以内的数字 showmessage(Inttostr(Num)); end;