TListControlItems

pt 

CompareItems

pt 

DoCustomSort

pt 

DoOnCompare

pt 

Update

 

Add

 

CustomSort

 

Sort