Кружок нубов(Вопрос-Ответ)

[J-Fobos]

1) Неверный синтаксис команды рандом.

Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range
0 <= X < 1.

В переводе на руский я думаю надобности нету
А еще надо использовать процедуру Randomize.


2) Плюс мне кажется нельзя (или ничего не даст) при объявлении таймера задавать такую функцию. Объявление происходит один раз и получается что interval изменятся не будет. В вашем случаи надо изменять Timer01.interval в событии OnTimer01.


UPD:
Думаю стоит еще написать пример генерации случайного числа от +20 до +50

Function IntRandom(LowBorder, UpBorder: Integer): Integer;
Begin
  IntRandom := LowBorder + Random(UpBorder - LowBorder + 1);
End;

Var
  X: Integer;

begin
  Randomize;
  X := IntRandom(-20, 50);
end.