pl 

OnCompare (TListControlItems)