Problema con excepciones con ClientDataSet

[[Chris]]

Solo cuando salga todo correcto es que el resultado debe ser true

Código Delphi [-]
Result := False;  // nunca sabemos que puede pasar.
Try
  miClientDataSet.post;
  miClientDataSet.ApplyUpdates(0);
  IBTransaction1.Commit;
  Result := True;  // todo ha salido bien
Except
  IBTransaction1.Rollback;
end;