Tratamento de Erros ´ErrorCode´

Ola Pessoal.

Gostaria de tratar os erros como a dica abaixo, mas não sei onde encontrar a lista como os codigos de erros. Onde posso localizar a lista com os codigo de erros?

with EDBClient(E) do
begin
[color=red:2162c9a215]if ErrorCode = 9729 then[/color:2162c9a215]
MessageDlg(´Código já existe na tabela.´, mtError, [mbOK], 0)
else
MessageDlg(Message, mtError, [mbOK], 0);
end;
Action := daAbort;


with EDBEngineError(E), Errors[0] do
[color=red:2162c9a215]if ErrorCode = 9734 then [/color:2162c9a215]// Has Details
ShowMessage(´Este registro não pode ser removido, outros arquivos precisam dele.´)
end;



[]s...