我曾用以下方法
  while not adostoredproc1.Eof do
      begin
        ppp^:=adostoredproc1.Fields[2].asstring;  //ppp为指针
        p_list.Add(trim(adostoredproc1.Fields[2].asstring));t_node:=t_data.Items.AddChildObject(t_data.Selected,adostoredproc1.Fields[0].asstring +'('+adostoredproc1.Fields[1].asstring+')',ppp);
        t_node.ImageIndex:=0 ;
        adostoredproc1.Next;
      end;
但在 树型控件的onchange事件中测试
  showmessage(pstr(t_data.selected.data)^)却为最后一个节点的值