Обход или правка процедуры Close Дельфи

Что можно исправить в проседуре Form1.Close чтобы эта процедура не работала?
Я скомпилировал в D7 прогу которая при нажатии на кнопку закрывается, пробовал
править Call который закрывает форму ,но вылетает ошибка.
Может просто обойти вызов Close?
Меня вообще интересует как можно обойти эту процедуру или
прыгнуть без возврата в какую-нибудь другую процедуру?
Какие-нибудь варианты есть?
Прилагаю exe.
Подскажите пожалуйста.
С Уважением DeRio.

 

В OnCloseQuery
пишим строчку
canClose:=false;

 

А в дизассемблированном коде?

 

DeRio
use DeDe

 

00446386 . 54 43 6C 6F 73>ASCII "TCloseQueryEvent"
00446396 00 DB 00
00446397 02 DB 02
00446398 08 DB 08
00446399 . 06 DB 06
0044639A . 53 65 6E 64 65>ASCII "Sender"
004463A0 . 07 DB 07
004463A1 . 54 4F 62 6A 65>ASCII "TObject"
004463A8 01 DB 01
004463A9 . 08 DB 08
004463AA . 43 61 6E 43 6C>ASCII "CanClose"
004463B2 . 07 DB 07 //Здесь пробовал ничего не вышло
004463B3 . 42 6F 6F 6C 65>ASCII "Boolean"
004463BA 00 DB 00
004463BB . F4104000 DD 2.004010F4
004463BF . 00104000 DD 2.00401000

 

DeRio
www.cracklab.ru