该讲有用的较少，记住下面两点就可以了

异常处理1：
try
。。。。。。
except
    Exit;  //上面的代码出异常了就执行这里
end;

异常处理2：
try
。。。。。
finally
    Exit;  //上面的代码异常与异常都会执行这里
end;

示例：
try
AString:='Welcome to Fishc.com';
AChar:=Copy(Astring,21,1);
if AChar<>'!' then
 Insert(AChar,AString,21);
except
    Exit;
end;