请问listview的排序问题!!!!!!!!!!???????????????????????????? 
     listview的viewstyle属性设为vsReport,请问怎样可以点击一下某个column就根据这个column的的子项 目进行升序或降序序排序 vb6.0是这样做的,代码如下: private sub listview_columnclick(byval columnheader as columnheader)  listview.sortorder=0  '设为升序   listview.sortkey= columnheader.index -1  ' 设置点击的column为排序的依据    listview.sorted=true '开始排序 
    end sub  
请问在delphi中的代码应该怎样写 ??????????? 感激万分!!! 
--