按DBGRID1的Title排序

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  s: string;
begin
  //Si是一个全局的boolean 变量
  //qryTemp是一个ADOQuery.
  if Si then
     s := Column.FieldName + ' ASC'
  else
     S := Column.FieldName + ' DESC';
  qryTemp.Sort := s;
  Si := not Si;
end;