[[enecumene]]

Hola, en el truco prueba cambiando estas lineas:

Código Delphi [-]
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin    
     if PreviousColumnIndex > -1 then 
        begin
         DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
         DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
        end
    Column.title.Font.Style := 
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;

if Column.Field <> nil then
 if (Pos(Column.Field.FieldName, Sort) = 1)
    and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

ojo lo hice al vuelo, puede que no funcione.

Saludos.