Ordenar un DBGrid por columna

[olbeup]

Que tal esto:

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(
  Column: TColumn);
{$J+}
const
  PreviousColumnIndex : integer = -1;
{$J-}
begin
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    if PreviousColumnIndex > -1 then
      DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style :=
        DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style - [fsItalic];

    Column.title.Font.Style := Column.title.Font.Style + [fsItalic];

    PreviousColumnIndex := Column.Index;

    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;

Un saludo