Сортирование и фильтрация DBGrid

[Stranger333]

Здесь уже есть много таких тем но не все по этих кодах получается
Вот сортирование

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var s:string;
begin
  s := Column.FieldName;
  with ADOQuery1 do
  begin
    DisableControls;
    Close;
    SQL.Clear;
    SQL.Add('Select * From Brusy');
    SQL.Add('ORDER BY ' + s);
    Open;
    DBGrid1.Columns.RestoreDefaults;
    Column.Title.Font.Color := clBlue;  
    EnableControls;  
  end;
end;

сортирует по возростанию, а по убыванию нет (использувал desc). Напишите коду строчку по убыванию.

Фильтр я хочу сделать что бы значение выберать из Combobox. Здесь все коды на Edit но они че то не работают. Я для поля задал маску и в Combobox находятся значения которые подходят этому полю.

[Karabash]

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var s : string;
begin
  s := Column.FieldName;
  with AdoQuery1 do begin
    Close;
    SQL.Text := 'select * from brusy order by '+s+' desc';
    Open;
    Column.Title.Font.Color := clBlue;
  end;
end;

[Stranger333]

Зделал фильтр на DBLookupComboBox, а не ComboBox.

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
var
  FieldName: string;
begin
  DBGrid1.DataSource.DataSet.Filtered := False;
  FieldName := DBGrid1.SelectedField.FieldName;
  DBGrid1.DataSource.DataSet.Filter := FieldName + '=''' + DBLookupComboBox1.Text + '''';
  DBGrid1.DataSource.DataSet.Filtered := True;
end;