Problema con excepsión y transacción

[mpedra]

Procedure TForm1.ManejarErrorBloqueo(Dataset:TDataset;E:EDatabaseError);
var
I: Integer;
x: String;
begin
if Database1.InTransaction then
MessageDlg('Todavia estoy en la transaccion', mtWarning, [mbOK], 0);
if E is EDBEngineError then
with EDBEngineError(E) do
for I := 0 to ErrorCount - 1 do
if Errors[i].NativeError <> 0 then
begin
X := X+inttostr(Errors[i].NativeError)+#13+#10;
Exit;
end;

MessageDlg(''+X, mtError, [mbOK], 0);


end;

El messageDlg que me informa que todavia estoy dentro de la transaccion me lo muestra, osea que alli todavia está la transacción en funcionamiento.

Despues de mostrar los errores, hago un rollback y me da este error:
No user transaction is currently in progress.
...

[alapaco]

Es como si al haber un error te hiciera automaticamente un rollback o un commit (esto último poco probable) por default.
Tal vez este seteado así en los componentes de base de datos, cuales usas ?

[mpedra]

TDatabase para la conexion
TQuery...

BDE

[alapaco]

La propiedad KeepConnection del TDatabase está en True ?

[mpedra]

Si está en true

Aparentemente la instancia de TDabase1 permance dentro de la transaccion fuera del try except donde capturo el error. (ya que hago un Database1.Intransaction y me da true). Pero si hago un commit o un rollback me da el error de que no tengo transaccion activa.