БД работа с Query

[Luna_13]

Помогите пожалуйста разобраться почему не работает запрос.
------
Есть таблица с данными о сотрудниках (Table1), DataSourse1 и Query1.
В настройках Table1, указала DatabaseName и TableName, Active=True.
В настройках DataSource указала DataSet=Tabel1.
В Query1 - DatabaseName и DataSource=DataSource1.
-----
Далее в коде кнопки запроса пишу такой код:

procedure TGlavn.BitBtn1Click(Sender: TObject);
var
    fam:string;
begin
      fam:=InputBox('Поиск информации','Укажите фамилию','');
          if fam<>''then
  begin
     with Glavn.Query1 do begin
        close;
           Sql.Clear;

     SQL.Add('Select Fam,Name,Adres,Tel');
     Sql.Add('From Anketa');
     Sql.Add('Where');
     SQL.Add('fam');
     Sql.Add('Order By Name, Fam');
         Open;
end;
      if Query1.RecordCount <>0 then
            DataSource1.DataSet:=Query1
     else begin
         ShowMessage('Нет записей по вашему запросу');
            DataSource1.DataSet:=Table1;
 end;
    end;

-------
При запуске проги, выводится окно, ввожу фамилию, жму ок - выдает ошибку: "Project Sotrud.exe raised exception class EDBEngineError with message 'Invalid use of keyword. Token:Order Line Number 5'"


Скажите пожалуйста, что неправильно.

[_SERGEYX_]

Ну, конечно...
Посмотри на свой запрос одной строкой...

SQL.Add('Select Fam,Name,Adres,Tel');
     Sql.Add('From Anketa');
     Sql.Add('Where');
     SQL.Add('fam'); /// чему равно fam ?????????(fam = fam)
(не обзывай переменные так же как и названия полей - запутаешься)
     Sql.Add('Order By Name, Fam');

[Luna_13]

Надо так?
Если так, то у меня все равно не работает...
Извиняюсь, если я туплю..

procedure TGlavn.BitBtn1Click(Sender: TObject);
var
    f:string;                         //поменяла
begin
   f:=InputBox('Введите фамилию','');     //поменяла
if f<>''then
 begin
   with Glavn.Query1 do begin
    close;
  Sql.Clear;

 SQL.Add('Select Fam,Name,Adres,Tel');
 Sql.Add('From Anketa');
 Sql.Add('Where');
 SQL.Add('f');                         //поменяла
 Sql.Add('Order By Name, Fam');
 Open;
end;

[SERG1980]

 
with form2.Query1 do
  begin
   Close; // закрыть файл-результат выполнения предыдущего запроса
   SQL.Clear; // удалить текст предыдущего запроса
   // записываем новый запрос в свойство SQL
   SQL.Add('SELECT *');
   SQL.Add('FROM Anketa');
   SQL.Add('WHERE');
   SQL.Add('(Fam LIKE "'+ f+'%' + '")');//по части слова
   //SQL.Add('(Fam = '" + fam + '")');по целому слову
   SQL.Add('ORDER BY Name, Fam');
   Open; // активизируем выполнение запроса
  end;

[Luna_13]

Спасибо:-)))
Все работает