1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TVolltextsuche.LvErgebnisColumnClick(Sender: TObject;
  Column: TListColumn);
begin
if Column.Caption = '' then
  exit;
if lvErgebnis.Items.Count > 0 then begin
  ColumnToSort := Column.Index;
  if ColumnToSort = LastSorted then begin
    SortDirection := 1 - SortDirection;
    if Column.ImageIndex = 0 then
      Column.ImageIndex := 1
    else
      Column.ImageIndex := 0;
  end
  else begin
    if LastSorted <> -1  then lvErgebnis.Columns[LastSorted].ImageIndex := -1;
    SortDirection := 0;
    Column.ImageIndex := 1;
  end;
  LastSorted := ColumnToSort;
  (Sender as TCustomListView).AlphaSort;
  end;
end;