[Marvel]

Добавление:

Код:

UID := 123; // например
TreeView1.Items.AddObject(nil,'Название',Pointer(UID);

получение данных:

Код:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  UID: integer;
begin
   if TTreeView(Sender).Selected <> nil then
   begin
     UID := integer(TTreeView(Sender).Selected.Data);
   end;
end;