单击dbgrid列标题排序 升降序

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

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

 1 procedure TForm3.DBGrid1TitleClick(Column: TColumn);
 2 begin
 3   if frmDataPool.qry需要做的事.SQL.Text.Contains('DESC') then
 4   begin
 5     with frmDataPool.qry需要做的事 do
 6     begin
 7       Close;
 8       SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' ASC';
 9       Open;
10     end;
11   end else begin
12     with frmDataPool.qry需要做的事 do
13     begin
14       Close;
15       SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' DESC';
16       Open;
17     end;
18   end;
19 end;