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

Исходник программы, показывающей пример создания эффекта падающего водопада (симулятор жидкости)

Исходник программы, показывающей пример разработки текстового чата построенного на компонентах Indy. Серверная часть обслуживает клиентов, дополнительно администратор сервера может выборочно отключать клиентов

Исходник программы, который демонстрирует получение информации о компьютере в сети

Исходник программы, показывающей пример создания интерфейса для работы с продвинутыми INI-файлами. Интерфейс представлен в виде классов и упрощенных коллекций, основанных на массивах. IniEx2 - это такая самодельная альтернатива XML

Смотрите сами я исходник не тестировал!

Исходник программы, показывающей пример сканирования Bitmap на предмет выявления присутствующих на нем цветов, а также последующей сортировки цветов в порядке убывания

Исходник программы, показывающей пример перехвата (разрешение / запрещение) таких событий в Edit и Memo как: копирование, вставка, редактирование и других функций

Исходник программы, показывающей пример создания браузера на движке Internet Explorer (многооконная надстройка над IE) с расширенными возможностями. Имеется поддержка плагинов

Исходник   программы,   показывающей пример создания программы аналогичной MSN Messinger для общения в локальной сети. Возможности: передача файлов, отправка сообщений, изменение статуса, поддержка скинов и множество различных настроек (в том числе аудио и видео)