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语句，用来将语句中申请的资源释放掉。
---------------------
版权声明：本文为****博主「一剑平江湖」的原创文章，遵循CC 4.0 by-sa版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.****.net/diligentcatrich/article/details/6989970