Random...

[NLObP]

function Random ( LimitPlusOne : Integer ) : Integer;

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

int = 68
int = 32
int = 17
int = 38
int = 43

Описание:
Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:

0 <= Number <1.0

или целые числа в диапазоне:

0 <= Number
Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).

Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.

J-Fobos давал хорошую ссылку на тему

Добавлено через 7 минут

Сообщение от dyh9l

в моем случае:
timer3.interval:=400+round(random(300));
Я правильно понимаю? Число надо рандомное от 400 до 700
И надо ли что-то указывать где-то в переменных?

Да, правильно.

Вот так я это значение изменяю

//......................................
procedure OnTimer3(Sender: TObject);
begin
    timer.enabled:=false;  //остановим все таймеры
    timer2.enabled:=false;
    timer3.enabled:=false;
    EditItemVal.text:=inttostr(sumitem(ItemID));  //всё время обновляем кол-во предметов
    EditScrollVal.text:=inttostr(sumitem(ScrollID)); //всё время обновляем кол-во свитков
    //рандомное время задержки между улучшениями
    timer3.interval:=2000+round(random()*1000); //время задержки, не менее 2 секунд иначе банят!
    RequestEnchantItem(ItemOID);
end;