Запрет на закрытие формы, как его снять?(delphi)

Столкнулся с проблемой. В обработчике OnClose написал Action:=caNone;, и собственно достиг нужного мне результата, но через 10 сек. мне уже можно закрывать форму. Вопрос: как это сделать?

 

создай глобальную переменную bclose:boolean;
и в обработчике на closequery напиши canclose:=blose;
в onshow напиши bclose:=false;
а когда можно закрыть уже напиши bclose:=true;

 

Спасибо буду знать, но мне тут подсказали более простой способ разрушить форму:
application.Terminate;

 

Еще проще

halt;

Но учти пока у тебя в событии OnClose стоит проверка на закрытие приложение будет мешать windows перезагрузится или выключится. Нужно отслеживать события заверешения работы винды.