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

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

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