como crear exception para validar duplicación de llaves en tabla

[Cabanyaler]

Yo lo hago de este modo:

// El post, lo protejo con una excepcion
try
DM.Tb.Post;
except
on E: EDBEngineError do // Ctrl de la Key Violation
begin
// Entro aqui pq se ha producido un error de clave duplicada
MessageDlg ('Posible clave DUPLICADA', mtError, [mbYes], 0);
end
else
begin
MessageDlg ('Error GENERAL en la Base de datos',[mbYes], 0);
end
end; // Del try