Сортировка по колонке DBGreed

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ADOQuery1.Sort:=Column.Field.FieldName+' DESC'; //ASC | DESC по убыванию
//ADOQuery1.Sort := '['+ Column.FieldName + '] DESC';
end;