Freedoom , очень интересно получилось! Класс!
(Нет явного цикла ожидания, доп.потока и TAG использован по совету парней!)
Архив проекта прилагается ...)

softwarerПопробуй, пока он работает, нажать, скажем, крестик в правом верхнем углу.Ничего не произошло, и по крайней мере от Крестика я буду избавляться вообще!
Ну нельзя закрывать окно посредине открытого цикла!
Но это уже мелочи и совсем другая история...

YuRockЖаль только электроэнергии за нагрузку процессора в 100% и тормозов компьютера из-за этого.
Тормозов не наблюдается, а скачек нагрузки на CPU - c 25 до 50%. Это много?
Можно если захочется - таймером ворон на ветках посчитать!..)))

YuRockДаже если пользователь передумал ждать окончания твоего цикла?Выход из процедуры будет возможен только по кнопке Выход, с корректными действиями.
А сам расчет (в Тестовом варианте - это счет от 0 до 500 и от 501 до 1000 и т.д.) в Реальном цикле выполняется достаточно быстро, так что юзер и не успеет мышкой на Крестик навести (Если он его еще сумеет найти на форме)!..)

YuRockЗначит у тебя 4 процессора (ядра). На одном уже "работала" подобная "программа", а эта запустилась на другом.
А если бы было одно ядро - нагрузка была бы 100.
Но не отчаивайся, и на многоядерных компьютерах, все программы, GUI-поток которых работал на том процессоре, который ты отправил в кому, будут тормозить.
Много это или не много - пользователям твоей программы решать.Да, верно, у меня 4 ядра!..)
С Одним ядром - это Pentium-1 что ли? Так мой уже такой давно на свалке!..))
А программа реальная - для узконаправленного круга пользователей пишется - для себя, ну максимум еще может для 2 -х других друзей!

Ну а будут тормоза - можно и твоим Потоковым вариантом воспользоваться! - Он судя по индикатору - вообще не грузит процессор!..)
Надеюсь проблем, обращения из Потоковой процедуры к другим функциям и процедурам, не должно быть?!

YuRock , Кстати - добавил Sleep(1); в ЭТОТ КОД , и процент загруженности вообще упал, проверь:


- Без Sleep(1) -- 25-27% в ожидании нажатия клавиш;
- Со Sleep(1) -- загрузка в ожидании практически не увеличилась (1-5%)!

rgreatBellic, А теперь попробуй закрыть программу крестиком. rgreat , Вы похоже Тему вообще не читаете!?
ВОТ ТУТ я уже ответил на этот вопрос!
Ну нету у меня на Реальной форме КРЕСТИКА!!! На Тестовой форме он конечно имеется, но я не буду туда нажимать!
Я форму создавал сразу без крестиков, значков сворачивания и минимизаций! Что бы потом вопросов не было!..)

НяшикПродолжаем дальше фигнёй страдать??)) А вот воспользовались бы таймером, даже в потоке. То не пришлось бы заниматься такими оптимизациями)))А кто Вам мешает написать свой вариант на основе моего Тестового и приложить к сообщению полный рабочий проект(без ошибок ток)?
Тем более, applicationevents сообщит о нажатии клавиши. И вообще не надо никаких собственных крутых for-ов
Няшик , мне на пиво братишка позвал, к сожалению вернусь только завтра, но я хотел бы Заценить и Ваш вариант с Таймером и Эвентсами!

makhaonБеллик, сделай нормально, правда :) Тебе же самому будет лучше и проще потом. Не надо потоков бояться, всё там с ними просто, если один раз разобраться. ProcessMessages - это, как правило, костыль, хоть со слипом, хоть без. Рано или поздно он гарантированно вылезет боком. Причём в таком месте, что вообще никак не связано напрямую с кодом. И вот тогда всю голову сломаешь, почему глючит.
Да я собственно с Потоков и начинал тему, до этого просто никогда не работал с ними!
Но по ходу оказалось, что можно и без них обойтись, и код очень коротким получался ведь!?

А что касается ProcessMessages , то я им и в других затяжных процедурах пользуюсь, чтоб избавиться от "Программа не отвечает"(или как там?) в шапке форм! А как по другому этого избежать?
Вот недавно сравнительно узнал, что можно ProgressBar.Refresh делать!