TListViewItem Checked属性未在视觉上同步

Question

我有一个TListView，当用户将文件放到其上时，我会在其中添加一个新项目。当他点击任何项目时，它会在已检查和未检查状态之间切换。

procedure TMainForm.UI_WorkListItemClickEx(const Sender: TObject;
ItemIndex: Integer; const LocalClickPos: TPointF;
const ItemObject: TListItemObject);
begin
TListView(Sender).Items[ItemIndex].Checked:=not TListView(Sender).Items[ItemIndex].Checked;
end;

问题在于，视觉上没有任何反应。