DBGrid单击表头排序

procedure TMainFrm.DBGrid2TitleClick(Column: TColumn);
var
  flag:Boolean;
  tempstr:string;
begin
  tempstr:=Column.Title.Caption;
  if Pos('▲',tempstr)>0 then flag:=False else flag:=True;
  if (Pos('▲',tempstr)>0) then
    tempstr:=Copy(tempstr,1,Pos('▲',tempstr)-1)
  else
  if Pos('▼',tempstr)>0 then
    tempstr:=Copy(tempstr,1,Pos('▼',tempstr)-1);
    
  if flag then
  begin
    ADOQuery1.Sort:=Column.FieldName+' ASC';
    Column.Title.Caption:=tempstr+'▲';
  end
  else
  begin
    ADOQuery1.Sort:=Column.FieldName+' DESC';
    Column.Title.Caption:=tempstr+'▼';
  end;
end;