Error al borrar un registro

[Angel.Matilla]

Estoy tratando de borrar un registro de una tabla con este código:

fMenu->Query->Close();
fMenu->Query->SQL->Text = "DELETE FROM Persona WHERE Codigo = :Codigo";
fMenu->Query->ParamByName("Codigo")->AsInteger = GroupBox1->Tag;
try
{
          fMenu->Query->ExecSQL();
          if (fMenu->Query->RowsAffected > 0)
                    cAux = "Elementos borrados\n" + FormatFloat("0", fMenu->Query->RowsAffected) + " ficha personal.\n" + cAux;
          fMenu->Query->Transaction->Commit();
}
catch(Exception &Exc)
{
          Screen->Cursor = crArrow;
          ShowMessage(Exc.Message);
          fMenu->Query->Transaction->Rollback();
          throw;
}

El ShowMessage lo tengo puesto para poder capturar el mensaje de error; al ejecutarse el ExecSQL() me da este error:

internal Firebird consistency check (partner index description not found (175), file: idx.cpp line: 1412)

y remata los mensajes de error con este otro:

internal Firebird consistency check (can't continue after bugcheck)

Es la primera vez que me enfrento a este error y no se como atacarlo.

[Casimiro Noteví]

Lee esto.

[Angel.Matilla]

Empezado por Casimiro Notevi

Lee esto.

Muchas gracias.

[Angel.Matilla]

Pues no. De acuerdo con la explicación del blog si el problema fuera el descrito debería aparecer alguna celda vacía, pero todas tiene valor. Seguiremos investigando.

[Casimiro Noteví]

Empezado por Angel.Matilla

Pues no. De acuerdo con la explicación del blog si el problema fuera el descrito debería aparecer alguna celda vacía, pero todas tiene valor. Seguiremos investigando.

Pero un valor que no corresponde.