Problema con excepciones con ClientDataSet

[[David]]

Hola

Tengo una función que devuelve un valor true o false , si se han podido o no grabar los datos .

Esto con Firebird , y tengo una TIBQuery , asociado el provider y el TClientDataSet y un componente TIBUpdateSQL para actualizar.

La tengo códificada algo así :

Código Delphi [-]
// Inicializo el resultado
Result := True;
// La funcion

// hago la inseción con el clientDataSet

// Hago el post
miClientDataSet.post;

miClientDataSet.ApplyUpdates(0);

Try
  IBTransaction1.Commit;
Except
  IBTransaction1.Rollback;
  Result := False;
end;

Pues bien , cuando me da una excepcion al pasar por miClientDataSet.ApplyUpdates(0); , no me entra en el Except y me devuelve True , en lugar de False y luego pues no puedo mostrar un mensaje al usuario , que saldria obviamente , cuando la función devuelva False y no True.

¿Qué es lo que falla en el código ?

Cómo deberia de poner dicha excepción ??


Un saludo