如何获得sql操作的错误信息

try    cn.Open;  except
    showmessage('错误源:'+cn.errors.Item[0].Get_Source
       +chr(10)+'描述:'+cn.errors.Item[0].Get_Description
       +chr(10)+'状态:'+cn.errors.Item[0].Get_SQLState
       +chr(10)+'错误代码:'+inttostr(cn.Errors.Item[0].Get_Number)
       +chr(10)+'NATIVE错误:'+inttostr(cn.Errors.Item[0].Get_NativeError)
        );    result:=false;
    cn.Close;
    exit;
  end;
cn为ADOCONNECTION对象！