Сортировать при нажатии на заголовок колонки

[Shouldercannon]

Сортировка происходит только при нажатии каждый раз на разный заголовок

var
  Form1: TForm1;
  ColumnToSort: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  LV: TListItem;
begin
  LV := ListView1.Items.Add;
  LV.Caption := 'Gort';
  LV.SubItems.Add('15');

  LV := ListView1.Items.Add;
  LV.Caption := 'Иван';
  LV.SubItems.Add('7');

  LV := ListView1.Items.Add;
  LV.Caption := 'Pop';
  LV.SubItems.Add('-1');

  LV := ListView1.Items.Add;
  LV.Caption := 'Mega';
  LV.SubItems.Add('15');

  LV := ListView1.Items.Add;
  LV.Caption := '!';
  LV.SubItems.Add('0');
end;

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

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

Не соображу как исправить.

[Shouldercannon]

Не получается сделать сортировку следующего вида:
по возростанию от En до Ru
!
Gort
Mega
Pop
Валентин
Иван
Константин
по убыванию от Ru до En
Константин
Иван
Валентин
Pop
Mega
Gort
!
по возростанию от -1 до 100
-1
0
7
15
89
100
по убыванию от 100 до -1
100
89
15
7
0
-1
Прошу вашей помощи.

[MeTeOpA]

советую вам почитать в гугле "сортировка одномерного массива" думаю если сообразите - поможет.

[Shouldercannon]

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;