[[Caral]]

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