procedure TFDMUtils.GeneralError(DataSet: TDataSet; E: EDatabaseError; var
 Action: TDataAction);
var
 i: Word;
 ExtInfo: string;
begin
 ExtInfo := '';
 if (E is EDBEngineError) then
 begin
  if (EDBEngineError(E).Errors[0].NativeError = 0) then
  begin // Local Error
  if EDBEngineError(E).Errors[0].Errorcode = 9732 then
  ExtInfo := DataSet.FieldByName(trim(copy(E.Message, 29,
  20))).DisplayLabel;
  .......................................
  end
  else
  begin // Remote SQL Server error
  ExtInfo := ExtractFieldLabels(DataSet, E.Message);
  case EDBEngineError(E).Errors[0].NativeError of
  233, 515:
  Alert('Ошибка', 'Hе все поля заполнены ! ' + ExtInfo);
  547:
  if (StrPos(PChar(E.Message), PChar('DELETE')) <> nil) then
  Alert('Ошибка пpи удалении',
  'Имеются подчиненные записи, удаление (изменение) невозможно! ' +
  ExtInfo)
  else if (StrPos(PChar(E.Message), PChar('INSERT')) <> nil) then
  Alert('Ошибка пpи вставке', 'Отсутствует запись в МАСТЕР-таблице! '
  + ExtInfo)
  else if (StrPos(PChar(E.Message), PChar('UPDATE')) <> nil) then
  Alert('Ошибка пpи обновлении',
  'Отсутствует запись в МАСТЕР-таблице! ' + ExtInfo);
  2601:
  Alert('Ошибка', 'Такая запись уже есть!');
  else
  Alert('Ошибка', 'Hеизвестная ошибка, код - ' +
  inttostr(EDBEngineError(E).Errors[0].NativeError) + ExtInfo);
  end;
  end;
 end;
end;