Ошибка в БД:Invalid use of keyword (Delphi)

[Zibiv]

Добрый вечер господа, у меня такая проблема, недавно начал заниматься Бд и у меня возник вопрос. Выдается ошибка при сортировки таблицы. Используется DBGridEh, Query, DataSource(Библеотека EhLib)в гриде осуществляю сортировку по клику на заголовке при помощи подключения библиотечного файла EhLibBDE.pas. Текст ошибки следующий "Invalid use of keyword. Token: By Line Number: 2.". Сортирует все столбцы, кроме двух, при клике на их заголовоках, выдает вышеприведенную ошибку. Причем эти два столбца отличаются от остальных тем, что Созданы Не в DataBaseDesktop, а с помощью редактора полей(создание полей соответствия) в Delphi в Query->Fieldseditor->NewField. Эти два поля имитируют реальные поля, выполняя подстановку значений из других таблиц, соответствующих имеющимся ключевым событиям.
Какие есть способы исправления этой ошибки...заранее благодарен...

[ОДИНОЧЕСТВО В СЕТИ]

имена полей и таблиц можно посмотреть?
и то место в коде которое выбивает ошибку?

[Zibiv]

Три таблицы с названиями Kafs, Dolhnosts, Kadrs. Соответственно, в первой таблице хранится информация о кафедрах( состоит из двух полей Id, KafName), вторая информация о должностях(так же два поля Id, DolhnostNAme) и третья таблица в которой хранится инфо о университетских кадрах (поля Id,NAme,Pol,KafId,DolhnostID,Razrd(разряд служащего),Stav(Ставка),DataN,DataY(дата приема на работу, дата увольнения),Tel и два поля которые не сортирует это KAfNAme, Dolhnosts NAme).
Насчет места в коде которое выдает ошибку я не знаю, наверное это связанно с самой сортировкой, правильно? тогда вот код файла

EhLibBDE.pas

unit EhLibBDE;

{$I EhLib.Inc}

interface

uses
{$IFDEF EH_LIB_6} Variants, {$ENDIF}
  DbUtilsEh, DBGridEh, DBTables, Db, BDE, SysUtils;

implementation

uses Classes;

type
  TBDEDataSetCrack = class(TBDEDataSet);

function BDEDataSetDriverName(DataSet: TBDEDataSet): String;
var
  hCur: hDBICur;
  rslt: DBIResult;
{$IFDEF CIL}
{$ELSE}
  Descs: STMTBaseDesc;
{$ENDIF}
  dbDes: DBDesc;
begin
  hCur := nil;
  try
    // Look at DbiQGetBaseDescs in the BDE32.HLP for more information...
{$IFDEF CIL}
    if DataSet is TQuery then
      Check(DbiQGetBaseDescs(TQuery(DataSet).STMTHandle, hCur))
    else
    begin
      Result := '';
      Exit;
    end;
{ TODO : How to get DriverName under Delphi8??? }
    Exit;
//    rslt := DbiGetNextRecord(hCur, dbiNOLOCK, Descs, nil);
//    Check(DbiGetDatabaseDesc(Descs.szDatabase, dbDes));
{$ELSE}
    Check(DbiQGetBaseDescs(TBDEDataSetCrack(DataSet).STMTHandle, hCur));
    rslt := DbiGetNextRecord(hCur, dbiNOLOCK, @Descs, nil);
    Check(DbiGetDatabaseDesc(Descs.szDatabase, @dbDes));
{$ENDIF}
     if (rslt = DBIERR_NONE) then
       // Look at STMTBaseDescs in the BDE32.HLP for more information...
       Result := String(dbDes.szDbType);
  finally
    if (hCur <> nil) then
      check(DbiCloseCursor(hCur));
  end;
end;

function DateValueToBDESQLStringProc(DataSet: TDataSet; Value: Variant): String;
begin
  Result := DateValueToDataBaseSQLString(BDEDataSetDriverName(TBDEDataSet(DataSet)), Value)
end;

type
  TBDEDatasetFeaturesEh = class(TSQLDatasetFeaturesEh)
  public
    procedure ApplyFilter(Sender: TObject; DataSet: TDataSet; IsReopen: Boolean); override;
  end;

{ TBDEDatasetFeaturesEh }

procedure TBDEDatasetFeaturesEh.ApplyFilter(Sender: TObject; DataSet: TDataSet; IsReopen: Boolean);
begin
  if TDBGridEh(Sender).STFilter.Local then
  begin
    TDBGridEh(Sender).DataSource.DataSet.Filter :=
      GetExpressionAsFilterString(TDBGridEh(Sender),
        GetOneExpressionAsLocalFilterString, nil);
    TDBGridEh(Sender).DataSource.DataSet.Filtered := True;
  end else
    ApplyFilterSQLBasedDataSet(TDBGridEh(Sender), DateValueToBDESQLStringProc, IsReopen, 'SQL');
end;

initialization
  RegisterDatasetFeaturesEh(TBDEDatasetFeaturesEh, TQuery);
  RegisterDatasetFeaturesEh(TBDEDatasetFeaturesEh, TTable);
end.

[ОДИНОЧЕСТВО В СЕТИ]

NAme

- ключевое слово переименуйте поле хотя бы в Name1
не называйте поля ключевыми словами и будет вам счастье

[Zibiv]

извиняюсь, я неправильно написал название поля вам

(поля Id,FMIO(фамилия имя отчество),Pol,KafId,DolhnostID,Razr d(разряд служащего)

[CrossDeLena]

Ооо у меня тоже типа такой фигни, все поля названные нормально, но при сортировке выдает ошибку=((