Кто подскажет, как после выполнения процедуры поиска,
представленной ниже, можно производить изменения, или дополнения 
в записи с помощью DBNavigator? Эти кнопки после выполнения запроса 
становятся неактивны.

procedure TForm1.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  fam: string[30];
begin
 fam:=Edit15.Text;
  with form1.Query1 do begin
           Close;       // закрыть файл-результат выполнения предыдущего запроса
           SQL.Clear;   // удалить текст предыдущего запроса
           // записываем новый запрос в свойство SQL
           SQL.Add('SELECT *');
           SQL.Add('FROM "::army2.db"');
           SQL.Add('WHERE');
           SQL.Add('(Famil Like "' + fam + '" + "%")');
           SQL.Add('ORDER BY Famil');
           Open;         // активизируем выполнение запроса

         end;
          if Query1.RecordCount <> 0 then
          DataSource1.DataSet:=Query1; // отобразить рез-т выполнения запроса

end;

А это

разве не лишнее... одного присвоения достаточно будет.