private      SortCol: Integer;      SortWay: Integer;                procedure TForm1.LVweColumnClick(Sender: TObject; Column: TListColumn);  begin     SortCol:=Column.Index;    if (SortWay=1) then SortWay:=-1 else SortWay:=1;    (Sender as TCustomListView).AlphaSort;  end;  procedure TForm1.LVweCompare(Sender: TObject; Item1, Item2: TListItem;    Data: Integer; var Compare: Integer);  var    t: Integer;  begin    if (SortCol=0) then    begin      Compare:=SortWay * CompareText(Item1.Caption,Item2.Caption);    end else    begin      t:=SortCol-1;      Compare:=SortWay * CompareText(Item1.SubItems[t],Item2.SubItems[t]);    end;  end;