妖哥

这个是自动排列的，每添加一个项内容，它就触发oncompare事件，进行排列，这个例子只能做最简单的按照数字大小进行排列。   

Delphi中进行排序的原理和VB相同，但是比VB更简单。设置ListView的SortType属性为stBoth。然后在OnCompare事件中输入比较大小的代码。
    procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
     Data: Integer; var Compare: Integer);
    var m, n :integer;
    begin
     m := StrToInt(Item1.Caption);
     n := StrToInt(Item2.Caption);
     Compare := m - n;
    end;