Fórum Mensagens de erros traduzidas #165801

try
    <codigo que pode gerar erros aqui>
except
    //abaixo voce captura a violação de acesso
    On EAccessViolation do 
        Application.MessageBox(´Violação de acesso!´,´Erro´,MB_ICONERROR)
    //abaixo voce captura a divisão por zero
    On EDivideByZero do
        Application.MessageBox(´Divisão por zero!´,´Erro´,MB_ICONERROR)
end;