No puedo detectar la excepción "EDatabaseError"

[Adan]

Saludos,

Tengo el siguiente problema, trabajo con Delphi 7 y una Base de Datos Interbase 7.0, estoy usando una tabla que contiene información, la llave primaria es mi número de expediente que es de tipo char de 10 caracteres y la tengo definida como la Primary key "PK_NEXPEDIENTE".

En mi programa de delphi uso los componentes del DBexpress y al momento de insertar un registro con un expediente que ya existe, deseo atrapar la excepción y mostrar un mensaje al usuario que diga "Expediente ya existente".
mi código es el siguiente:

try
clientdataset1.Post;
if (clientdataset1.ChangeCount > 0) then
clientdataset1.ApplyUpdates(-1);
except
on E: Exception do begin
ShowMessage('Expediente ya existente');
end

pero al correr el programa e introducir el dato duplicado, nunca me arroja la excepción. Si lo corro desde delphi, el compilador si me arroja el error de "EdatabaseError violation of primary key..." pero nunca me arroja el mensaje de excepción. Y al correrlo fuera de delphi, obviamente nunca me marca el error a pesar de que no lo puede insertar por estar duplicado el expediente.

también intenté lo siguiente:

try
clientdataset1.Post;
if (clientdataset1.ChangeCount > 0) then
clientdataset1.ApplyUpdates(-1);
except
on E: EDatabaseError do begin
ShowMessage('Expediente ya existente');
end

y tampoco la atrapa, se sigue de largo.

Alguna idea para solucionarlo????

Gracias de Antemano

Adán