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

//columntosort und columnclicks sind globale variablen
//und werden in OnColumnClick mit entsprechenden Werten belegt.
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;
    if ColumnToSort = 1 then
      try
        Compare := CompareValue(StrToInt(Copy(Item1.SubItems[ix],1,Pos(#20, Item1.SubItems[ix]))),
          StrToInt(Copy(Item2.SubItems[ix],1,Pos(#20, Item1.SubItems[ix]))));
      except
        on Exception do
          //Was soll hier hin?
      end
    else
      Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;
  if columnclicks mod 2 = 0 then compare := not compare;
end;