procedure Tfrm.DBGrid1TitleClick(Column: TColumn);
begin
  with AdoQuery1.SQL, Column do begin
  Clear;
  Add('SELECT * FROM Person1 ORDER BY '+Title.Caption+' '+ComboBox1.Text+';');
  end;
  AdoQuery1.Open;
end;

procedure Tfrm.DBGrid1TitleClick(Column: TColumn);
var strList: TStrings;
begin
  strList := TStringList.Create;
  with AdoQuery1, Column do
  begin
   GetFieldNames(strList);
   //Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM Person1 ORDER BY '+strList[Index]+' '+ComboBox1.Text+';');
   Open;
  end;
  strList.Free;
end;

procedure Tfrm.FormCreate(Sender: TObject);
begin
  with ComboBox1.Items do begin
    Clear;
    Add('ASC');
    Add('DESC');
  end;
end;