[[duilioisola]]

Cita:
al tiempo de utilizar la aplicación da error
¿Qué error?

Me refiero al mensaje de error. Al texto del error.
En el bloque try ... except haz lo siguiente para ver el texto del error:

Código Delphi [-]
...
  {ejecutar insert/update/delete}
  with Q do
  begin
     try
        if not Transaction.InTransaction then Transaction.StartTransaction;
        ...
        ExcecQuery;
        Transaction.CommitRetaining;
     except
        on e:exception do : ShowMessage('Error al ejecutar insert/update/delete. '+#13+e.Message);
   end;
...