Случайные числа, генерируемые в Delphi "родной" функцией Random далеки от идеала. По умолчанию при каждом запуске программы последовательность случайных чисел будет одинаковой. Улучшения достигаются добавлением системного таймера к процессу генерации случайных чисел – вызовом процедуры Randomize. Тем не менее, это не приводит к улучшению того простого алгоритма, который используется в генераторе случайных чисел. Алгоритмы большей сложности дают лучшие результаты. Конечно, реальной необходимости в этом нет. Windows предоставляет генератор случайных чисел, вызываемый функцией CoCreateGUID. Данный пример показывает, как его можно использовать при минимуме кодинга для получения действительно качественного генератора случайных чисел.