Como capturar mensaje cuando se intenta duplicar una clave primaria de una BD

[RedVenom]

lo que hice fue cambiar

Código Delphi [-]
MessageDlg('MENSAJE DE ERROR: '+E.Message, mtWarning, [mbOK], 0);

Por:

Código Delphi [-]
E.Message:="Mensaje de Error Capturado

Pero ya no creo yo mi mensaje lo unico que puedo hacer es cambiarle el texto al mensaje de error que manda la base de datos ahora lo que quisiera es solo cambiarlo cuando sea algun tipo de error especifico.