Raise exception

[jocaro]

Hello

I'm using a procedure in delphi xe. In debugging mode, when I execute the instructions 'post' an exception occurs (two examples at the end).

The application is single-user and the database is local (sqlite)

In the application there are some queries of type 'select', although not used in the current session of the application, the error occurs.

Someone can help me

procedure TSDIAppForm.GrabarBD();
begin

cambios automáticamente) }
FrmBasDat.TablaElementosArbol.Edit;
FrmBasDat.TablaElementosArbol.Post;
FrmBasDat.TablaNotas.Edit;
FrmBasDat.TablaNotas.Post;
FrmBasDat.TablaTemas.Edit;
FrmBasDat.TablaTemas.Post;
FrmBasDat.TablaNotTem.Edit;
FrmBasDat.TablaNotTem.Post;

FrmBasDat.ConexionBdSqlite.Commit;

end;

raise exception class ESQLiteError, message 'cannot rollback savepoint - SQL statements in progress'

[emailx45]

You need show the SQL text in use...

Note: Be Clear, for one answer more clear...