Problemas con el TreeView y los nodos

[ruina]

Código Delphi [-]
procedure TForm1.BnuevoClick(Sender: TObject);
var nuevo:TTreeNode;
begin
  nuevo:=TreeView1.Items.Add(TreeView1.Selected,'hermano');
// aqui tienes acceso al nodo recien creado, como por ejemplo para acceder a  nuevo.Data;
  if  TreeView1.Selected<>nil then
      TreeView1.Items.AddChild(  TreeView1.Selected,'hijo');
end;

mira a ver si te sirve este ejemplo aclaratorio ^_^