TreeView - узнать ключ выделенного элемента

procedure TForm1.AddNode(ToTree:TTreeNode;ToId:cardinal);
var i:cardinal;
    node:TTreeNode;
begin
  // Проверяем каждую запись в базе
  for i:=1 to NodesCount do
  begin
    // Если родитель равен коду записи, то мы добавляем ее в дерево к этому родителю 
      if nodes[i].parent_id=ToId then
    begin
      // Добавляем запись в дерево
      node:=TreeView1.Items.AddChildObject(ToTree,nodes[i].str,Pointer(nodes[i].id));
      // Запускаем рекурсивно процедуру добавления с параметрами 
      // ToTree=node - только что созданный объект дерева, тоесть к нему бем искать предков
      // ToId=nodes[i].id - будем искать объекты, у которых родитель текущий объект
      AddNode(node,nodes[i].id);
    end;
  end;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
begin
  TreeView1.Items.Clear;
  // Вначале считаем количество записей
    NodesCount:=ADOQuery1.RecordCount;
  // Задаем размер динамического массива для базы
  setlength(Nodes,NodesCount+1);
  // Загружаем базу в память
  ADOQuery1.First;
  for i:=1 to NodesCount do
  begin
    //Заносим в дерево код услуги, наименование и ссылку на родителя
    Nodes[i].id:=ADOQuery1.FieldValues['Group1'];
    Nodes[i].str:=ADOQuery1.FieldValues['Name'];
    try
    Nodes[i].parent_id:=ADOQuery1.FieldValues['Group2'];
    except
    end;
    ADOQuery1.Next;
  end;
  // Теперь строим дерево
  // Запускаем рекурсивную процедуру с параметром типа:
  // Добавляем в корень (nil) все значения, у которых родитель = 0
  AddNode(nil,0);
  treeview1.Items.CustomSort(nil,0,true);
end;

    // в g - значение ключа
var 
  p:PGUID;
  tn:ttreenode;
...
    p := AllocMem(sizeOf(TGuid));
    p^ := g;
    tn := tree.Items.AddChild(parent,' имя узла');
    tn.Data := p;

var g:TGUID;
...
g := TGuid(Tree.Selected.Data^))

 procedure TreeDeletion(Sender: TObject;
  Node: TTreeNode);
begin
   FreeMem(node.Data, sizeOf(TGuid));
 
end;

procedure TForm1.AddNode(ToTree:TTreeNode;ToId:cardinal);
var i:cardinal;
    node:TTreeNode;
    p:^cardinal; // указатель на тип cardinal
begin
  // Проверяем каждую запись в базе
  for i:=1 to NodesCount do
  begin
    // Если родитель равен коду записи, то мы добавляем ее в дерево к этому родителю 
      if nodes[i].parent_id=ToId then
    begin
      // Добавляем запись в дерево
      node:=TreeView1.Items.AddChild(ToTree,nodes[i].str);
      p := AllocMem(sizeOf(cardinal));
      p^ := nodes[i].id;
      node.Data := p;
      // Запускаем рекурсивно процедуру добавления с параметрами 
      // ToTree=node - только что созданный объект дерева, тоесть к нему бем искать предков
      // ToId=nodes[i].id - будем искать объекты, у которых родитель текущий объект
      AddNode(node,nodes[i].id);
    end;
  end;
end;
...
 
// получить ИД из узла дерева
var id:cardinal;
...
id := cardinal(TreeView1.Items[i].Data^);

for i := 0 to treeveiw1.Items.Count - 1 do
begin
  id := cardinal(TreeView1.Items[i].Data^);
  ....
end;

procedure TForm1.AddNode(ToTree:TTreeNode;ToId:cardinal);
var i:cardinal;
    node:TTreeNode;
    p:^cardinal;
begin
  // Проверяем каждую запись в базе
  for i:=1 to NodesCount do
  begin
    // Если родитель равен коду записи, то мы добавляем ее в дерево к этому родителю
      if nodes[i].parent_id=ToId then
    begin
      // Добавляем запись в дерево
      //node:=TreeView1.Items.AddChildObject(ToTree,nodes[i].str,Pointer(nodes[i].id));
      node:=TreeView1.Items.AddChild(ToTree,nodes[i].str);
      p := AllocMem(sizeOf(cardinal));
      p^ := nodes[i].id;
      node.Data := p;
      // Запускаем рекурсивно процедуру добавления с параметрами
      // ToTree=node - только что созданный объект дерева, тоесть к нему бем искать предков
      // ToId=nodes[i].id - будем искать объекты, у которых родитель текущий объект
      AddNode(node,nodes[i].id);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
begin
  TreeView1.Items.Clear;
  // Вначале считаем количество записей
    NodesCount:=ADOQuery1.RecordCount;
  // Задаем размер динамического массива для базы
  setlength(Nodes,NodesCount+1);
  // Загружаем базу в память
  ADOQuery1.First;
  for i:=1 to NodesCount do
  begin
    //Заносим в дерево код услуги, наименование и ссылку на родителя
    Nodes[i].id:=ADOQuery1.FieldValues['Group1'];
    Nodes[i].str:=ADOQuery1.FieldValues['Name'];
    try
    Nodes[i].parent_id:=ADOQuery1.FieldValues['Group2'];
    except
    end;
    ADOQuery1.Next;
  end;
  // Теперь строим дерево
  // Запускаем рекурсивную процедуру с параметром типа:
  // Добавляем в корень (nil) все значения, у которых родитель = 0
  AddNode(nil,0);
  treeview1.Items.CustomSort(nil,0,true);
end;