TListControlItems
pt
CompareItems
pt
DoCustomSort
pt
DoOnCompare
pt
Update
Add
CustomSort
Sort