请问定义指针时应注意那方面的事件？

请举一个树状形的事例，接近erp系统,我这个例子是一个子程序：主要是指针连接不上主程序（树状形的节点)
procedure TFrmpartbom.FormDblClick(Sender: TObject);var
root :ttreenode;
node :ttreenode;
parentnode :ttreenode;
data :^string;
begin
with frmmain.TreeView1.Items do
root :=frmmain.TreeView1.Items.AddChild(parentnode,'BOM资料维护');
root :=frmmain.TreeView1.Items.AddChildObject(parentnode,'BOM资料维护',data);
parentnode :=frmmain.TreeView1.Items.AddChildObject(root,'每日作业',data);end;