Программная сортировка в ListView

bool rev;
int ColumnToSort;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1Compare(TObject* Sender, TListItem* Item1,
    TListItem* Item2, int Data, int& Compare)
{
    int ix = ColumnToSort - 1;
    if (ColumnToSort == 0)
        Compare = CompareText(Item1->Caption, Item2->Caption);
    else
        Compare = CompareText(Item1->SubItems->Strings[ix],
                    Item2->SubItems->Strings[ix]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1ColumnClick(TObject *Sender,
      TListColumn *Column)
{
    if ((rev == true) || (ColumnToSort != Column->Index))
    {
        rev = false;
    }
    else if ((rev == false) || (ColumnToSort != Column->Index))
    {
        rev = true;
    }
    ColumnToSort = Column->Index;
    ((TCustomListView *) Sender)->AlphaSort();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListView1->ColumnClick=1;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ListView1ColumnClick(ListView1, ListView1->Columns->Items[1]); // по первому столбцу
}