Código Delphi
[-]
procedure TForm1.BnuevoClick(Sender: TObject);
var nuevo:TTreeNode;
begin
nuevo:=TreeView1.Items.Add(TreeView1.Selected,'hermano');
if TreeView1.Selected<>nil then
TreeView1.Items.AddChild( TreeView1.Selected,'hijo');
end;
mira a ver si te sirve este ejemplo aclaratorio ^_^