Das steht hinter dem ButtonClick zum Sortieren:
Code:
procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=Query1;
Query1.Active:=false;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * FROM schueler ORDER BY klasse');
Query1.open;
Query1.Active:=true;
end;