1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.DBGrid4TitleClick(Column: TColumn);
var SortCol: String;
begin
  SortCol := DBGrid4.Columns.Items[Column.Index].FieldName;
  showmessage(SortCol);  // Feldname wird angezeigt!
  SortOrder := true;
  QBuchstamm.Close;
  if SortOrder then
    QBuchstamm.sql.text := format('select * from "%s" order by "%s" asc', [TbBuchstamm.tablename, SortCol])
  else
    QBuchstamm.sql.text := format('select * from "%s" order by "%s" desc', [TbBuchstamm.tablename, SortCol]);
  QBuchstamm.Open;
  SortOrder := not SortOrder;
end;