如何给TreeView中的每一项加上可复选框的CheckBox?

TreeView不能像ListView中的CheckBox一样多选，只能用StateImage，效果不错，但不是CheckBox,而是画一个打勾的图形（Index=3)。当某个Item被选中后，前面就出现这个打勾的图标，当再次点击时，打勾的图标就消失。
在TreeView的OnClick事件中添加如下代码：
  if TreeView2.Selected.StateIndex <> 3 then
     TreeView2.Selected.StateIndex :=3
  else
     TreeView2.Selected.StateIndex := -1;