Es correcto esta excepción?

[novato_erick]

Estimados Sres Tengo este formulario el cual utilizo Firebird y el componente DBExpress el cual tambien tengo DataSet, el proveedor y su respectivo DataSource

sin embargo en Firebird tengo en la tabla lo siguiente:

Código SQL [-]
ALTER TABLE CLIENTES ADD CONSTRAINT UQ_CLIENTES UNIQUE (CEDULA);

esto para evitar duplicidad de registro en el campo Cédula.

Sin embargo en delphi para manejar la excepcion que me manda tengo esto en el Boton de Guardar

Código Delphi [-]
procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
  try
    dmAcceso.cdsClientesPAIS.Value := cbexPais.text;
    dmAcceso.cdsClientes.Post;
    dmAcceso.cdsClientes.ApplyUpdates(0);
    cbexPais.text := 'Otro';
  except
    on E:Exception do // error DBExpress
    begin
      ShowMessage(#13+E.Message);
    end;
end;
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  begin
    frmPrincipal.CerrarPestana;
  end
  else
  Begin
    dmAcceso.cdsClientes.Active := False;
    dmAcceso.cdsClientes.Active := True;
    dmAcceso.cdsClientes.Last;
    dmAcceso.cdsClientes.Insert;
  end;
 end;

Lo malo es que no me maneja la excepcion no se en que estaré fallando

si tienen alguna idea que error cometa favor espero sus respuestas...


Saludos

novato_erick