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.