// Get an integer random number in the range 1..100 for i := 1 to 5 do begin int := 1 + Random(100); // The 100 value gives a range 0..99 ShowMessage('int = '+IntToStr(int)); end; end;