Bellicизбавиться от "Программа не отвечает"(или как там?) в шапке форм! А как по другому этого избежать?
Делать тяжелую работу в другом потоке.

BellicВот недавно сравнительно узнал, что можно ProgressBar.Refresh делать!
Не надо вызывать, если делать работу в другом потоке. Именно из-за того, что ты с помощью костылей пытаешься делать и работу и отрисовку интерфейса, у тебя и получается эффект, обратный

Bellicкод очень коротким получался ведь!?
Более того, ты вызовом принудительной отрисовки (ProgressBar.Refresh и подобного) замедляешь работу основного своего алгоритма, который ты называешь "циклом".

Bellicкод очень коротким получался ведь!?
Да, и еще. Мой код (с потоком) на 5 с половиной строк больше твоего потому, что я предусмотрел для пользователя возможность в любой момент корректно и сразу закрыть программу.
Если уважение к пользователям не нужно - можно убрать оттуда некоторые проверки, кое-где Wait заменить на Sleep, работать по FreeOnTerminate=True, и еще много чего.

Уверяю тебя, что код с потоком получится меньше, чем у тебя (хотя бы потому, что нет goto в основном алгоритме). И будет висеть при нажатии на крестик, пока не закончится "цикл", как ты любишь.

Freedoomпеределать цикл

Это уже лучше, хотя и все равно мрак.
И это не первоисточники, а такие же костыли и грабли.

FreedoomYuRock, см реализацию ShowModal в vcl.forms.pasЯ её смотрел уже раньше. Костыли и грабли.
Такой подход иногда допустим, когда действительно надо быстро вставить костыль в готовую рабочую систему, и другого выхода нет, кроме как всё переделывать, что может быть не выгодно.
Но заложить такое в основу библиотеки... Я когда первый раз наступил на это и увидел в чем проблема... Такого я от Борланда не ожидал.

НяшикYuRockТакого я от Борланда не ожидал.

По моему они уже скатились, и сейчас выпускают что бы была активность для продажКод ShowModal не менялся больше 20 лет.