[Developer]

Сообщение от m1sclick

Вобщето она зависала еще тогда когда не было ни таймера ни goto я для этого и сделал в начале процедуры Application.Minimize что бы не мешала на экране.

Сам цикл виснет, когда нажимаю Button1 кнопка нажимается и остается нажатой пока цикл не закончиться и все это время ничего с программой ручками делать не могу.
Вот это не понял...

Вобще-то использовать "Goto" нерекомендовано. Не водном нормальном коде я "Goto" не встречал, разве что у людей, которые 2 дня на Delphi пишут. Избегай использование этой команды.

application.processmessages тормозит выполнение твоего кода на определенное время за которое выполняет обработку других сообщений, например прорисовку формы.

Так же твой код можно вынести в отдельный поток и тогда прорисовка формы и выполнение команд будет в основном потоке, а выполнение твоего кода в другом.