[Stanei]

Добрый день.
Как можно сделать что бы при нажатии на кнопку, выполнение программы останавливалось?

Конкретней:
на форме кнопка1 (старт), при нажатии запускается процедура, в ней один общий, бесконечный цикл, в нём ещё десяток подциклов которые завершают работу при выполнении определённых условий.
Так вот, как можно сделать кнопку (стоп), что бы при нажатии всё останавливалось сразу, хотел добавить переменную stop и после каждой строчки писать if, но думаю это бред, код увеличится в два раза, да и на проверку будет уходить время.

Подскажите, а?