ListView如何排序

function CustomSortProc( Item1, Item2 : TListItem; lParam : LongInt ) : Integer; stdcall;
begin
  if lParam >= 0 then //lParam中保存的是SubItem的Index
  begin
     result := -CompareText(Item1.SubItems.Strings[lParam],
                Item1.SubItems.Strings[lParam] );
  end else
     result := 0;
end;