delphi中的record怎么动态分配内存？

//定义结构体
TNodeInfoEx = Record
    NodeID    : Integer;
    ParentID  : Integer;
    end;
PNodeInfoEx = ^TNodeInfoEx;
//向树上加结构体
procedure AddItem(TV:TTreeView);
var
  PTreeItemEx:PNodeInfoEx;
begin
  New(PTreeItemEx);
  PTreeItemEx^.NodeID:=1;
  PTreeItemEx^.ParentID:=1;
  TV.Items.AddObject(, , Pointer(PTreeItemEx));//把结构体指针加到Items的地址列
end;
在析构树时要把在堆上动态创建的结构体Dispose掉