Всем привет, Лорду одназначно респект.
Хочу предложить еще один вариант - писал его года два назад для той же цели.
Это маленькая библиотечка с одним единственным методом "CloseApp"
У метода два параметра:
1. Текст, отображаемый пользователю при завершении приложения
2. Выводить пользователю сообщение или нет
Чтобы использовать его в Nav нужно:
1. зарегистрировать библиотеку в системе
2. добавить переменную типа Automation 'NewLineOCXs'.Class1
3. добавить в нужное место стандартный код - CREATE(имя_переменной);
имя_переменной.CloseApp(Хватит работать!',TRUE);