晕死，如何也搞不定，也是有关排序的有关问题

晕死，怎么也搞不定，也是有关排序的问题
晕死啊，这里是adoquery的用法，若要用query的话，该怎么写啊？？死都改不出来。救救啊。
最后一行adoquery1.sort该改成什么啊，
procedure   TForm1.DBGrid1TitleClick(Column:   TColumn);
  var
                iFieldCount:Integer;
    begin
            //进行点击Title排序
            for       iFieldCount       :=       0       to       DBGrid1.Columns.Count       -       1       do      
            begin      
                        if       (Copy(DBGrid1.Columns[iFieldCount].Title.Caption,Length   (DBGrid1.Columns[iFieldCount].Title.Caption)-1,2)       =       '▼ ')       or       (Copy(DBGrid1.Columns[iFieldCount].Title.Caption,Length(DBGrid1.Columns[iFieldCount].Title.Caption)-1,2)       =       '▲ ')       then      
                        begin      
                                    DBGrid1.Columns[iFieldCount].Title.Caption       :=       Copy(DBGrid1.Columns[iFieldCount].Title.Caption,1,Length(DBGrid1.Columns[iFieldCount].Title.Caption)-3);      
                                    break;
                        end;      
            end;      
            if       Column.FieldName       =       FSortField       then      
            begin
                        if       FSort       =       'DESC '       then      
                                    FSort       :=       'ASC '      
                        else      
                                    FSort       :=       'DESC ';
            end      
            else       begin      
                    FSortField       :=       Column.FieldName;      
                    FSort       :=       'ASC ';      
            end;      
            if       FSort       =       'ASC '       then