在Except块中，可以用ExceptObject获得当前的异常信息。
ExceptObject是一个异常对象，包括以下几个成员：
ExceptObject. ErrInfo 获得错误的信息串
ExceptObject. ErrLine错误的行号
ExceptObject. ErrNo错误号
例如：
a:=100;
try
a:=1+'a';
except
echo ExceptObject.ErrInfo;
end;
return a;
打印结果：
function:NoName501:line 11:instruction:+: Addition instruction error,operand type error