procedure ShowExceptionMessage;
Выводит на экран сообщение, связанное с текущим исключением. Эту функцию следует вызывать только из раздела except, или другой функции, которая содержит раздел except.
Если включено ведение журнала (с помощью параметра командной строки /LOG или директивой SetupLogging в секции [Setup], или директивой UninstallLogging в секции [Setup], или режимом отладки в IDE компилятора), это сообщение будет не только показано, но также записано в файл журнала и/или выведено в окне отладки IDE компилятора.
var I: Integer; begin I := 1; try // Следующая строка вызовет исключение "Деление на ноль". I := I div 0; except // Перехватываем исключение, показываем и продолжаем работу. ShowExceptionMessage; end; end;