DBGrid sortieren

[Chamb]

hier der Quelltext

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin 
  if Column.FieldName <> sSortColumn then begin
    sSortColumn := Column.FieldName;
  end
  else begin
    bSortOrder := not bSortOrder;
  end;
  ADODataSet1.Close;
  if bSortOrder then begin
    ADODataSet1.CommandText := 'SELECT * FROM TTabelle ORDER BY ' + sSortColumn;
  end
  else begin
    ADODataSet1.CommandText := 'SELECT * FROM TTabelle ORDER BY '+ sSortColumn + ' DESC';
  end;
  ADODataSet1.Open;
end;

@mkinzler: Ist das "order by" hier falsch gesetzt???