单击dbgrid列标题排序 升降序

delphi中如何通过单击列标题进行升降排序，

在dbgrid的ontitleclick事件里添加这样的事件处理

 procedure TForm3.DBGrid1TitleClick(Column: TColumn);
 begin
   if frmDataPool.qry需要做的事.SQL.Text.Contains('DESC') then
   begin
     with frmDataPool.qry需要做的事 do
     begin
       Close;
       SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' ASC';
       Open;
     end;
   end else begin
     with frmDataPool.qry需要做的事 do
     begin
       Close;
       SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' DESC';
       Open;
     end;
   end;
 end;