1:

var ColumnToSort: Integer;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);

begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;                    

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

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;

end;                    

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

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := not (CompareText(Item1.Caption,Item2.Caption))
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;
  if columnclicks mod 2 = 0 then compare:=not compare;
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  if ColumnToSort<>column.Index then columnclicks:=1
                                else inc(columnclicks);
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;                    

1:

Compare := CompareValue(strtoint(Item1.SubItems[i]), strtoint(Item2.SubItems[i]));                    

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

  
if ColumnToSort = 9 then
  begin
    i := ColumnToSort -1;
    Compare := CompareValue(strtoint(Item1.SubItems[i]), strtoint(Item2.SubItems[i]));
  end;

  if ColumnToSort = 10 then
  begin
    i := ColumnToSort -1;
   Compare := CompareText(Item1.SubItems[i],Item2.SubItems[i])  ;
  end;


if columnclicks mod 2 = 0 then compare:=not compare;                    

1:
2:
3:
4:
5:
6:
7:

  if zahlenspalte dann:
     try
      compare:= strtoint(Item1.SubItems[ix])-strtoint(Item2.SubItems[ix])
     except
      //im fehlerfalle, wenn die subitems keine zahl enthält oder dann comparetext wieder nehmen
      compare:=0;
     end;                    

1:
2:
3:
4:
5:

  TForm...
  ...
  private
    ColumnToSort: Integer;
  end;                    

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

procedure TForm1.liv_anzeige2ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;


procedure TForm1.liv_anzeige2Compare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;

end;                    

1:

{$R *.dfm}