[Casimiro Notevi]

¿Aparte de todo, qué hace ese commit ahí?

spCrearFechasCriticas.Close;
spCrearFechasCriticas.ParamByName('i_hora_ini').AsTime:=StrToTime(cbxHoraIni.Items[cbxHoraIni.ItemIndex]);
spCrearFechasCriticas.ParamByName('i_hora_fin').AsTime:=StrToTime(cbxHoraFin.Items[cbxHoraFin.ItemIndex]);
spCrearFechasCriticas.ParamByName('i_Maximo_pedidos').AsInteger:=StrToInt(mskMaxPedidos.Text);
spCrearFechasCriticas.ExecProc;
ModuloBD.trsDatos.Commit; // ¿ Qué hace esto aquí ? :/
Application.MessageBox('Procesado terminado satisfactoriamente','Aviso',mb_ok+mb_IconInformation);