关于dbgrid里的升序降序问题！

Question

想实现用鼠标点击dbgrid的列标题以后，里面的数据自动根据所点击的标题升序排列，再点击一下，就降序排列，自己写了一些代码，能通过编译，但运行的时候有错误，还望高手指点一下，谢谢！
procedure TPagesDlgAsset.DBGrid1TitleClick(Column: TColumn);
begin
  with ADM.SQry do begin
      case ADM.SQry.Tag of
      0: ADM.SQry.Sort := Column.FieldName + 'DESC';
      1: ADM.SQry.Sort := Column.FieldName ;
    end;    if ADM.SQry.Tag = 0 then
      ADM.SQry.Tag := 1
    else
      ADM.SQry.Tag := 0
  end;
end;

Answer 1

0: ADM.SQry.Sort := Column.FieldName + 'DESC';
改成
 0: ADM.SQry.Sort := Column.FieldName + ' DESC';//加了个空格

Answer 2

呵呵，实际上就是DBGrid万能查询排序的简化版