例：
   PEquipmentInfo =^TEquipmentInfo;
   TEquipmentInfo = record
      EquipNumber: Integer;
      PortNumber: Byte;
   end;
   
   ndChild: TTreeNode;
   pNodeInfo: PEquipmentInfo;
   ndChild := treControl.Items.AddChildObject(nd,equipTitle,pNodeInfo);    

procedure TForm1.TreeView1Click(Sender: TObject);
var
  p : PEquipmentInfo;
begin
  p := TreeView1.Selected.Data;
  if p <> nil then
  begin
    Caption := IntToStr(p.EquipNumber);
  end;
end;