Delphi Virtual Listview异常：启用OwnerData时取消选中不触发OnChange

我编写了一个测试程序用于实现Virtual ListView功能，目前遇到了异常情况：

• 当启用TListview的OwnerData属性后，批量取消选中项时不会触发OnChange事件，导致虚拟项中标记为选中的条目不断累积，而实际ListView内这些项已经被取消选中
• 未启用OwnerData的第二个ListView中，取消选中项可以正常触发OnChange事件

我已经自行排查多日但仍无法解决问题，希望有人能帮忙分析测试程序的源码，判断问题根源——我认为这并非自身代码的问题。

内容的提问来源于stack exchange，提问作者Bart Kindt