TreeView.Data用函数的参数来赋值...(20分)

type
PNodeRec = ^TNodeRec;

TNodeRec = record
Comments: string;
end;

procedure TVAddItem(TreeView:TTreeview;Name:string;DataNodeRec)；
begin
.....
TreeView.Items.AddObject(nil,Name,Data);
......
end;
....
New(Data);
TVAddItem(TreeView,Name,Data);
Memo_Comments.Lines.Text:=PNodeRec(treeview.Selected.Data)^.Comments;
//这里会出错
请问把指针作为参数的时候应该注意什么问题呢？

从代码看应该是Selected为空，引起的读地址出错。
//改成这样看看
procedure TForm1.TVAddItem(TreeView:TTreeview
Name:string
DataNodeRec);
begin
TreeView.Items.AddObject(nil,Name,Data).Selected := True;
end;

试过了，还是不行。