Sobra esta línea:
Código Delphi
[-]ModuloDatos.IBQAgenda.Open;
Y tendrás que confirmar la transacción, algo así como:
Código Delphi
[-]ModuloDatos.IBQAgenda.transaction.commitretaining;
Y recuerda poner un título más descriptivo a tus preguntas, gracias