var
  int   : Integer;
  i     : Integer;

begin
  // Если Вы выполните эту программу дважды, гарантируется, что только 
  // первые 5 значений randomize
  // снова установит в различную часть
  // псевдо случайной последовательности чисел.

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

  // Теперь, чтобы снова установить выполняем randomize
  Randomize;
  ShowMessage('');

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