Fórum no user transaction is currently progress #55852

Trabalho com o interbase 6.0 . Em uma das opções da minha aplicação ocorre o erro ´no user transaction is currently progress´.
Monto a query da seguinte forma em varias tabelas :

MODULO_CON.DBI.StartTransaction;
MODULO_CON.Q_CONSULTA.Close;
MODULO_CON.Q_CONSULTA.SQL.Clear;
TEXTOSQL := ´UPDATE CONSULTA SET ´
+ ´data_atend = ´ + ´´´´ + xdata_atend + ´´´´ + ´, ´
+ ´data_atend = ´ + ´´´´ + xdata_atend + ´´´´ + ´, ´
+ ´hora_atend = ´ + ´´´´ + xhora_atend + ´´´´ + ´, ´
+ ´cid = ´ + ´´´´ + xcid + ´´´´ + ´, ´
+ ´situacao = ´ + ´´ + IntToStr(Xsituacao) + ´´ + ´, ´
+ ´usuario_atend = ´ + ´´ + IntToStr(XUSUARIO_ATEND) + ´´
+ ´ WHERE AUTOCODI = ´ + ´´ + IntToStr(XCODIGO_CONSULTA) + ´´;
MODULO_CON.Q_CONSULTA.SQL.Add(TEXTOSQL) ;
TRY
MODULO_CON.Q_CONSULTA.PREPARED := TRUE;
MODULO_CON.Q_CONSULTA.EXECSQL;
EXCEPT
ON EDBENGINEERROR DO
BEGIN
MODULO_CON.DBI.Rollback;
MESSAGEDLG(´Não foi possível alterar a consulta : ´ + IntToStr(XCODIGO_CONSULTA),mtError, [mbOK], 0);
abort;
exit;
end;
end;
MODULO_CON.DBI.Commit;

Alguém pode me ajudar... ????? :cry: