No puedo detectar la excepción "EDatabaseError"

[Adan]

lo intenté así y nada, se sigue de largo, despues de ejecutar la línea
cds1.ApplyUpdates(-1);
y marcar el error de "EDatabaseError primary key violation..." no ejecuta mi código de excepción.

Alguna idea??

try
cds1.Post;
if (cds1.ChangeCount > 0) then
cds1.ApplyUpdates(-1);
except
on E: EIBInterbaseError do begin
ShowMessage('Error al guardar la manifestación');
end;

Empezado por sanxpue

Tal vez no puedas detectar el error ya que no es un Exception o un EDataBaseError, prueba con EIBInterbaseError