Можно использовать ObxRandom:
1) Инициализируем генератор текущим тактом времени:
ObxRandom.InitSeed(SHORT(Services.Ticks())
2) ObxRandom.Uniform возвращает нам случайное число от 0 до 1.
Получить, как в ТурбоПаскале, случайное из целого диапазона, можно так:
## Код:
```
PROCEDURE Random (n: INTEGER): INTEGER;
BEGIN
  RETURN SHORT(ENTIER(ObxRandom.Uniform() * n))
END Random;
```
