procedure Randomize;

Вызовите процедуру Randomize один раз в начале программы для того, чтобы при каждом запуске последовательность псевдослучайных чисел начиналась с различных значений. Randomize устанавливает значение переменной RandSeed, используя текущее время дня. Randomize - настоящая процедура.

• При тестировании программы не вызывайте процедуру Randomize. В этом случае будет получена одна и та же последовательность псевдослучайных чисел при каждом запуске программы, и нельзя сравнить результаты запусков. После тестирования добавьте вызов
  Randomize, чтобы при каждом запуске программы последовательность чисел была различной.
  
• Не вызывайте Randomize более одного раза в программе. Это разрушает случайность последовательности псевдослучайных чисел.
  
• Randomize использует для инициализации переменной RandSeed текущее время дня. Если программа каждый день запускается в одно и то же время, выберите другой способ инициализации RandSeed.

unit RandomDice;
interface
...
function Die: TDieRoll;
function Dice: TDiceRoll;
implementation
...
initialization
Randomize:
end.