9.6.2 拦截异常
随着时间的推移，Object Pascal 语言的原始异常处理系统又增加了一个高级功能，那就是方法：
procedure RaisingException(P: PExceptionRecord); virtual；
根据源代码文档:
该虚函数将在异常即将发生前被调用。在外部异常的情况下，由于 "引发 "条件已经开始，因此在创建对象后不久就会调用该函数。
异常类中的函数实现管理着内部异常（通过调用内部的 SetInnerException），这也许解释了为什么要在引入内部异常机制的同时引入该函数。
无论如何，既然有了这个功能，我们就可以加以利用。事实上，通过重载该方法，我们就有了一个单一的后创建函数，无论使用哪个构造函数创建异常，该函数都会被调用。换句话说，你可以避免为异常类定义自定义构造函数，而是让用户调用基本异常类多个构造函数中的一个，并仍然拥有自定义行为。例如，你可以记录给定类（或子类）的任何异常。
注解：另一种方法是重载 TObject 的虚拟 AfterConstruction 方法，无论调用的构造函数是什么，初始化代码都会被执行。
这是一个重载 RaisingException 方法的自定义异常类（在 AdvancedExcept 示例中再次定义）：
type
ECustomException = class(Exception)
protected
procedure RaisingException(P: PExceptionRecord); override;
end;
procedure ECustomException.RaisingException(P: PExceptionRecord);
begin
// Log exception information
FormExceptions.Show('Exception Addr: ' + IntToHex(
Integer(P.ExceptionAddress), 8));
FormExceptions.Show('Exception Mess: ' + Message);
// Modify the message
Message := Message + ' (filtered)';
// Standard processing
inherited;
end;
该方法的作用是记录一些异常信息、修改异常消息，然后调用基类的标准处理方法（嵌套异常机制的运行需要）。该方法是在异常对象创建后、异常发生前调用的。我们可以注意到这一点，因为 Show 调用产生的输出是在调试器捕获异常之前生成的！同样，如果在 RaisingException 方法中设置断点，调试器会在捕获异常之前停止。
同样，嵌套异常和这种拦截机制在应用程序代码中并不常用，因为它们是更适合库和组件开发人员使用的语言特性。