[kisska89]

не могли бы вы написать процедуру на кнопку cancel, которая, как я понимаю, подразумевает прерывание процедуру в которой, выводится сообщение с этой кнопкой.

[Ozerich]

Чтобы выйти из процедуры используй команду exit;
Например if a<>0 then exit;