Прежде чем вызывать функцию Rnd, воспользуйтесь оператором Randomize без аргумента, чтобы инициализировать генератор случайных чисел с начальным значением на основе системного таймера.
Прежде чем вызывать функцию Rnd, воспользуйтесь оператором Randomize без аргумента, чтобы инициализировать генератор случайных чисел с начальным значением на основе системного таймера.