var
  m_bSort: Boolean = false; //控制双向排序
implementation

{$R *.dfm}

function CustomSortProc(Item1, Item2: TListItem;
  ParamSort: Integer): Integer; stdcall;
var
  txt1, txt2: string;
 // txt1, txt2: Integer;
begin
  if ParamSort <> 0 then
  begin
    try
      txt1 := (Item1.SubItems.Strings[ParamSort - 1]);
      txt2 := (Item2.SubItems.Strings[ParamSort - 1]);
      if m_bSort then
      begin
        Result := CompareText(txt1, txt2);
        //Result := txt1 - txt2;
      end
      else
      begin
        //Result := -(txt1 - txt2);
        Result := -CompareText(txt1, txt2);
      end;
    except
    end;
  end
  else
  begin
    if m_bSort then
    begin

      Result := CompareText(Item1.Caption, Item2.Caption);
    end
    else
    begin
      Result := -CompareText(Item1.Caption, Item2.Caption);
    end;
  end;
end;
procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  if (Column.Index = 1) or (Column.Index = 3) then
  begin
    lv1.CustomSort(@CustomSortProc, Column.Index);
    m_bSort := not m_bSort;
  end;
end;