كيف ارتب الجدول dbgrid في البرنامج تنازليا على قاعدة البيانات في دلفي

[format82]

الحمد لله تم تعديل الكود حيث يعمل الان في XE 10.1
هذا هو الكود حتي يستفيد منه الجميع 

كود :

{$J+} const PreviousColumnIndex : integer = 0; {$J-} begin  if DBGrid1.DataSource.DataSet is TCustomADODataSet then  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do  begin    try      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];    except    end;    Column.title.Font.Style :=    Column.title.Font.Style + [fsBold];    PreviousColumnIndex := Column.Index; if (Pos (WideString (Column.Field.FieldName), Sort) = 1) and (Pos (WideString ('DESC'), Sort) = 0) then      Sort := Column.Field.FieldName + ' DESC'    else      Sort := Column.Field.FieldName + ' ASC';  end;