解决FireMonkey下的TListBox的Item右键单击后无法选中的bug

最近在使用FireMonkey写一个产品，使用的过程中发现，TListBox的一个小问题，先使用右键对着某个Item节点单击后，再次左键对其单击，竟然无法显示选中状态，实在是郁闷！用着非常不爽！所以就跟了一下源码，做了简单的改动即可修正这个特别郁闷的问题，FMX.ListBox.pas文件具体改动如