Super Tratamento de Erros.

Eu estou tentanto fazer uma aplicação que facilite a vida dos programadores, alguns podem me chamar de louco, mas não custa tentar, e quem puder me ajudar, eu agradeço...
Bom, é o seguinte... Tem um Componente no delphi chamado TApplicationEvents.... Resumidamente, este é um componente que manipula os evento de sua aplicação...por exemplo
Eventos como: Minizar,Maximizar,Restaurar,Executar e um dos mais interessantes no meu ponto de vista que é o Exception...
Ou seja, se você esquecer de tratar algum erro no seu sistema, vc pode deixar configurado neste componente, para que ele exiba o erro tratado de forma genérica por vc...
O que eu quero... é tratar de modo genérico todos os erros do sistema como por exemplo... no Evento Click do Meu botão eu tenho o seguinte codigo ClientDataset1.Open; Pode-se dar inumeros erro ao abrir um ClientDataSet, se eu não tratar isso...
Por isso este componente se torna útil.... e o que eu quero é disparar neste componente...uma exceção super personalizada como:
ShowMessage('Erro no COmponente' + ComponentequedeuErro + #13 +
    'Erro no Evento: ' + eventoquedeuErro + #13 =
    'Erro no Formulário: '+ FormularioErro + #13 +
   'Erro Ocorrido:' + E.Message); Bom isso pode parecer loucura, mas não custa tentar, acho que com essas informações qualquer programador poderá dar manutenção em qualquer sistema.... Conto com a ajuda de todos...obrigado