var
  float : single;
  int   : Integer;
  i     : Integer;

begin
  // Получение случайных чисел с плавающей запятой в диапазоне 0 <= number <1.0
  for i := 1 to 5 do
  begin
    float := Random;
    ShowMessage('float = '+FloatToStr(float));
  end;

  ShowMessage('');

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