Прервать процедуру во время ее работы

[AMD]

Как прервать процедуру во время ее работы?

Создал переменную на уровне модуля Stop
по дефольту Stop=False

Процедура на каждом этапе проверяет Stop если он становится True тогда она останавливается

Кнопке на форме присвоил процедуру изменить Stop:=True
Но толку? Кнопка то во время выполнения процедуры не нажимается

[shade]

Постановка проблемы просто отвратительная... вот поди и догайся, чего хотели...

В цикле вызывай Application.ProcessMessages - она будет обрабатывать события, а так у тебя цикл гоняется, а события не обрабатываются.. следовательно обработчик клика по кнопки не вызывается.

[AMD]

Все ок