Программа рисования на экране

Архив:

Программа в цикле рисует по всему экрану пикселями. За один проход ставится на экран 42 пикселя одного генерированного цвета. Количество проходов зависит от количества строк кода следующего содержимого: desk.Pixels[Random(cWidth), Random(cHeight)] := color; Интересует может почему не сделан цикл на 42 итерации? Дело в том что циклу нужно больше ресурсов компьютера, а такое решение является в данном случае оптимизацией.

После запуска программы, через 10 минут (Sleep($927C0);) начнется рисование разными пикселями на экране. Чтобы завершить программу, необходимо зайти в диспетчер задач, перейти во вкладку "Процессы" и найти там процесс pixel.exe, который необходимо удалить из процессов.

Язык интерфейса:

Платформа:

Среда разработки:

Демо-версия: 
Комплектация: 
Проект и программа в пункте "Демо-версия". Примечание: Возможно работает только на системе Windows XP (на других не тестировалось) и так как возможно антивирусы будут ругаться на архив с программой "application_randompixel2006.rar", то к архиву сделан пароль: f225r_DwKwfda