TListView(Sender).Items.ActiveItems.Sort(
TComparer<TListViewItem>.Construct(
function(const Left, Right: TListViewItem): Integer
var
.......
TListView(Sender).Items.Changed;
p.s. ActiveItems и Changed - это хелперы к соотв-им полям\методам strict private
p.s. метод Sort - я вообще не понимаю {censored} он тут нужен. он сортирует свои внутренние объекты стиля