Сортировка данных в колонках ListView

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  if FSortKey = Column.Index + 1 then FSortKey := -FSortKey else FSortKey := Column.Index + 1;
  if ListView1.SortType <> stText then ListView1.SortType := stText else ListView1.AlphaSort;
end;
 
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
  N1, N2: Integer;
begin
  if Abs(FSortKey) = 1 then Compare := AnsiCompareText(Item1.Caption, Item2.Caption)
  else
  begin
    N1 := StrToInt(Item1.SubItems[Abs(FSortKey) - 2]);
    N2 := StrToInt(Item2.SubItems[Abs(FSortKey) - 2]);
 
    if N1 = N2 then Compare := 0 else if N1 < N2 then Compare := -1 else Compare := 1;
  end;
  Compare := Compare * (FSortKey div Abs(FSortKey));
end;

  if Abs(FSortKey) = 1 then
    begin
    end
  else
  if Abs(FSortKey) = 2 then
    begin
    end
  else
  if Abs(FSortKey) = 3 then
    begin
    end;

  ...
 
  FSortKey: Integer;     //  Теперь в самом деле используется как номер колонки
  FBackSort: Boolean;  //   Направление сортировки
 
  ...
 
procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  if (FSortKey = Column.Index) then // Если это та же самая колонка - меняем направление сортировки
    FBackSort := not FBackSort
  else                                             // иначе - прямая сортировка
    FBackSort := False;
 
  FSortKey := Column.Index;
  ListView1.AlphaSort;
end;
 
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
 N1, N2, SubItemInd: Integer;
begin
  if (FSortKey > 0) then  // Сортируем по субайтемсам
  begin
    SubItemInd := FSortKey -1;
 
    // StrToInt не годится, потому как вызовет ошибку если строчка пустая
    // либо не приводится к числу. Поэтому StrToIntDef
 
    N1 := StrToIntDef(Item1.SubItems[SubItemInd],0);
    N2 := StrToIntDef(Item2.SubItems[SubItemInd],0);
 
    if FBackSort then        // Обратная сортировка
      Compare := N2 - N1
    else                     // Прямая сортировка
      Compare := N1 - N2;
  end
  else                    // Сортируем по капшену айтемса
  begin
    if FBackSort then     // Обратная сортировка
      Compare := AnsiCompareText(Item2.Caption,Item1.Caption)
    else                  // Прямая сортировка
      Compare := AnsiCompareText(Item1.Caption,Item2.Caption);
  end;
end;