delphi中异常定义如下：

TCustomException   =   class(Exception)
    private
    public
        constructor   Create(const   Msg:   string );
    end;

在一般的编程中，因为涉及到函数的嵌套调用，如果在一个函数中发生异常，且此函数中有try except语句，如果想让上级函数捕捉到异常，则在except end中调用 raise语句即可。

一般编程语言的通用处理异常的结构是

try

try

except

end;

finally

end;

即先是一个except语句，处理异常，然后再是finally语句，用来将语句中申请的资源释放掉。
---------------------
版权声明：本文为CSDN博主「一剑平江湖」的原创文章，遵循CC 4.0 by-sa版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/diligentcatrich/article/details/6989970