Tu peux faire queque chose comme celà


procedure TForm1.Button1Click(Sender: TObject);
var
N1,N2 : TTreeNode ;
begin
TreeView1.Items.Clear ;
N1 := TreeView1.Items.AddChild(Nil,'html');...