Error al hacer Commit
 

Hola a todos, tengo un problema que me tiene muy desconcertado, tengo el siguiente codigo en delphi:

Código Delphi [-]
    TransDoc.StartTransaction;
    try
      if swfind then begin
        FT_Contra.Delete;
        TransDoc.Commit;
      end;
    except
      raise;
      TransDoc.Rollback;
    end;

uso delphi 7 y fibplus

resulta que marca error en la linea del commit y me muestra el siguiente error:
"unsuccessful exceution cause by a system error thta does not preclude successful execution of subsequent statements. invalid transaction handle (expecting explicit transaction start)

pero segun yo si la estoy especificando espero y puedan ayudarme, he hecho esto muchas veces y nunca he tenido un problema. Gracias por su valioso tiempo.

Hola
Nunca lo he hecho asi, yo lo hago algo diferente pero tal vez....:

Código Delphi [-]
TransDoc.BeginTrans;
    try
      if swfind then begin
        TransDoc.CommitTrans;
        FT_Contra.Delete;
      end;
    except
      TransDoc.RollbackTrans;
    end;

No me hagas mucho caso, pero seguro viéndolo mal hecho te sale bien.:)
Saludos