目前我有：
Randomize; Roll := Random(7); Label3.Caption := IntToStr(Roll);
RandomRange(1,7)
这将从集{1,2,3,4,5,6}中返回一个随机整数.
(使用数学)
[顺便说一下,’以某种方式’排除零是微不足道的.做随机(6)1.]
