TVirtualStringTree节点赋值的问题！

Question

// 代码如下type  
  Rmylist = record
    Name:string;
  end;
  Pmylist = ^Rmylist;
var List1:Tlist;//全局变量procedure VTSheetInitNode(Sender: TBaseVirtualTree;ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
var
  Level: Integer;
  Date,mylistDate:Pmylist;
begin
  Level := Sender.GetNodeLevel(Node);
  if Level = 0 then
  begin
    Include(InitialStates, ivsHasChildren);
    Date := Sender.GetNodeData(Node);
    //间接赋值
    mylistDate   := List1.Items[Node.index];
    Date.Name    := mylistDate.Name;
    
   {// 为什么不能这样直接赋值（无用）
       mylistDate   := List1.Items[Node.index];
      Date := mylistDate   ;
    }
  end;
end;如果间接赋值那内存中不是有占多了一份List1的无用数据，请问正解该如何赋值？

Answer 1

我明白了，是思想上没转弯。
VT只负责显示部分，和被处理数据通过关联字段关联！