问一下关于treeview的问题!

根节点aa 子节点bb
   aa.imageindex = 0
   我想让aa展开的时候它的图标变成其它的图标，折叠的时候又变回来
   我在
   procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
    var AllowCollapse: Boolean);
   begin
      inherited;
      Node.ImageIndex:= 0;
   end;  procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
  begin
     inherited;
     Node.ImageIndex:= 1;
  end;
          
  程序运行后发现节a展开和折叠的时候图标都没有变啊！