[Zucra]

Hola, bueno, estoy haciendo un programa, y tengo una funcion que es "Ingresar stock" la funcion anda perfecto hace todo lo que tiene que hacer y no tira error. Pero cuando voy a cerrar el formulario, me salta el error ese "TRANSACTION IS NOT ACTIVE"
no se que puede ser o como lo puedo solucionar

El codigo de la funcion es el siguiente.

Código Delphi [-]
procedure TFormGStock.Button2Click(Sender: TObject);
var max:integer;
begin
    cajaStock.EStock.Open;
    cajaStock.MaxStock.Close;
    cajaStock.MaxStock.Open;
    if    cajaStock.MaxStock.IseMpty then max:=1 
    else max:=cajaStock.MaxStock.Fields[0].ASInteger +1; 
    cajaStock.EStock.AppendRecord([max,Edit4.Text,Edit5.Text,StrToInt(Edit8.Text),FormatDateTime('mm"/"dd"/"yyyy',dateTimePicker3.Date),StrToFloat(Edit12.Text)]);
    cajaStock.EStock.Close;
    cajaStock.UpdStock.Close;
    cajaStock.UpdStock.ParamByName('stock').AsString:=Edit12.Text;
    cajaStock.UpdStock.ParamByName('categoria').AsString:=Edit4.Text;
    cajaStock.UpdStock.ParamByName('id_producto').AsString:=Edit8.Text;
    cajaStock.UpdStock.ParamByName('marca').AsString:=Edit5.Text;
    cajaStock.UpdStock.Open;
    caja.IBTransaction1.Commit;
    reset;
end;

//Hasta aca funciona perfecto. Luego al hacer click en el boton salir cuya sintaxis es un simple Close; ahi es donde tira el error

Espero puedan ayudarme, gracias.