При нажатии на крестик в правом верхнем углу формы срабатывет событие формы QueryUnload(). Если в этом событии дать команду NODEFAULT, то закрытие формы будет отменено.

При выполнении команды RELEASE или метода формы Release() событие QueryUnload() игнорируется и не исполняется.

Обычно на форме есть кнопка "Выход", при нажатии на которую выполняются необходимые действия и дается команда ThisForm.Release(). Тогда в событии QueryUnload() пишется примерно такой код


Здесь CmdExit - это имя той самой кнопки "Выход". Т.е., по сути, при нажатии на крестик здесь произошла отмена автоматического закрытия формы и вызов пользовательского метода для закрытия формы.

Не надо искать в моем ответе "тайный смысл". Воспринимай его в данном случае БУКВАЛЬНО!

При нажатии на крестик в правом верхнем углу форма закрывается. Разве ей надо при этом давать какие-то дополнительные команды? Т.е. дополнительный Release() ей вовсе не нужен. Она и так замечательно закроется.

Смысл всего написанного по поводу QueryUnload() сводился к тому, что не надо писать дважды один и тот же код в разных местах. Надо ОТМЕНИТЬ закрытие формы по нажатию на крестик и запустить тот метод, который "штатно" (по твоему замыслу) обрабатывает закрытие формы.

У тебя "штатным" методом закрытия формы является событие Click() на кнопке формы. Значит, в событии QueryUnload() необходимо вызвать этот твой штатный метод. Т.е. в явном виде написать команду вроде

ThisForm.CmdExit.Click()

Вызвать событие Click() нужной кнопки.

Но этого недостаточно. Ведь в процессе обработки нажатия на кнопку выход может быть ОТМЕНЕН. Точнее, запрещен по разным соображениям. Но если все оставить как есть, то событие QueryUnload() отработает до конца и само, автоматически, без дополнительных команд ЗАКРОЕТ форму. Следовательно, необходимо отменить автоматическое закртие формы именно в событии QueryUnload(). Для этой цели используется команда NODEFAULT.

Т.е. код в событии QueryUnload это


ВСЕ! НЕ НАДО больше ничего в нем писать!

Теперь при нажатии на крестик в правом верхнем углу вместо автоматического закрытия формы будет запущен твой собственный метод закрытия формы, написанный в событии Click() кнопки CmdExit. Вот в нем-то как раз и пишешь:


Таким образом, если по каким-либо соображениям теперь тебе надо будет изменить код, исполняемый при закрытии формы ты изменяешь только код в событии Click() твоей кнопки "Выход" и уже не заботишся о том, что пользователь может нажать на крестик. Все-равно произойдет перенаправление действий на обработку события Click() кнопки. Не надо писать один и тот же код несколько раз в разных местах.