var
  int   : Integer;
  i     : Integer;
  hours, mins, secs, milliSecs : Word;

begin
  { Получение случайного числа, используя заданное по умолчанию случайное значение начального числа}
  ShowMessage('Первые 5 случайных фиксированных значений');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // Эти 100 значений дают диапазон 0..99 
    ShowMessage('int = '+IntToStr(int));
  end;

  // Теперь изменяем случайное начальное число на значение миллисекунд
  // текущего времени
  DecodeTime(now, hours, mins, secs, milliSecs);
  ShowMessage('');
  ShowMessage(''Установка randSeed значения : '+IntToStr(milliSecs));
  ShowMessage('');
  RandSeed := milliSecs;

  // Получение целого случайного числа в диапазоне 1..100 
  ShowMessage('Следующие 5 случайных значений');
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // Эти 100 значений дают диапазон 0..99
    ShowMessage('int = '+IntToStr(int));
  end;
end;