TVirtualStringTree节点赋值的问题！

[lazeping]

// 代码如下

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的无用数据，请问正解该如何赋值？

[lazeping]

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

[budded]

呵呵开窍了就好！

[myy]

TVirtualStringTree实在太强了...