Вот этот текст
Код: Выделить всё
TextGroup Group
String('unique key|Нарушена уникальность записи')
String('table reference|Запись используется в другой таблице БД')
End
Например, если в тексте есть 'unique key', будет выведено 'Нарушена уникальность записи'
Поставь в начало отладочную выдачу FileError(), FileErrorCode() и Get_error, потом дополни список строк контекста и поправь коды ошибок сервера Firebird. И будет тебе щастье...