Also ich würde das so machen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
new_node: TTreeNode;
begin
if treeview1.Selected.AbsoluteIndex = 0 then begin
new_node := treeview1.Items.AddChild(treeview1.Selected,'Neues Project');
treeview1.Selected := new_node;
treeview1.SetFocus;
end;
end;
Von AddChild bekommst du ein TTreeNode zurück, mit der Zuweisung an Selected wird es ausgewählt und durch SetFocus bekommt das TreeView wieder den Focus.