delphi指针问题求教

我写了一个TUserInfo类，里面有两个属性和一个构造函数，属性：UserName,UserAge，构造函数是初始化两个属性为默认值空和0。

下面我要在TreeView里面填充，在TreeNode的Data中保存一个TUserInfo，可是最后读取的Data中保存的TUserInfo是同一个，不知原因求教，具体代码：

procedure addNode(tree: TTreeView;root: TTreeNode;index: integer);
var
  node: TTreeNode;
  pui: ^TUserInfo;
begin
new(pui);
pui^:=TUserInfo.Create;
pui^.UserName:='DD' + inttostr(index);
pui^.UserAge:=index;
node:=tree.Items.AddChild(root,pui^.UserName);
node.Data:=pui;
dispose(pui);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  root: TTreeNode;
  i: integer;
begin
root:=treeview1.Items.AddFirst(nil,'hello world');
for i := 0 to 4 do
  begin
  count:=count+1;
  addnode(treeview1,root,count);
  end;
end;

麻烦知道的各位给解答一下。

晕菜！不好意思，找到问题了，就是使用了dispose(pui)把指针给释放了。