Fórum Pegar o Código do Erro #352613

E fácil pegar a mensagem de erro mas, como faço para pegar o código do erro no evento OnPostError do Compenente AdoQuery?

Exemplo:

procedure TDMBase.ADOQueryPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
???
end;