用TADOQuery连接数据库,如何获得异常代码

用TADOQuery连接数据库,怎么获得错误代码
比如
        try {
 pquery->ExecSQL();
}
catch(...) {
                 //如果执行错误,获取错误代码.
}
这个错误代码如何获取啊.
[解决办法]

try
{
    pquery->ExecSQL();
}
catch(Exception &E)
{
    // E.Message 就是错误信息
}