مرتب سازی dbgrideh در دلفی

نحوه مرتب سازی dbgrideh در دلفی

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
  var i,j:Integer;
  sort_str: String;
begin
  for j:=0 to Column.Grid.Columns.Count-1 do
    if (Column.Grid.Columns[j].Title.SortMarker <> smNoneEh) and (Column.Grid.Columns[j]<>Column)
      then Column.Grid.Columns[j].Title.SortMarker := smNoneEh;
  case Column.Title.SortMarker of
    smNoneEh: Column.Title.SortMarker := smDownEh;
    smDownEh: Column.Title.SortMarker := smUpEh;
  end;
    smUpEh: Column.Title.SortMarker := smNoneEh;

case Column.Title.SortMarker of
smUpEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' ASC';
smDownEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := Column.FieldName+' DESC';
smNoneEh :TAdoDataset(DbgridEh1.DataSource.DataSet).Sort := '';
end;
end

و یا  تنظیمات زیر

uses  ehlibADO;
dbGrideh1.OptionsEh.dghAutoSortMarking:=true;