TreeView添加子節點和動態生成控件

有這樣一個TreeView，動態分有類A,B,C...（不一定是A，B,C...）,我要在A類添加屬   於它子節點，B類也添加屬於它的子節點...  
  如結構：  
          A--a1  
            --b1  
              .  
              .  
              .  
          B--a1  
            --b1  
                .  
                .  
                .  
  不能出現兩個相同狀態:有A--a1,不能再有A--a1,如我添加一記錄爲C,a1和C,g1則TreeView要變爲:  
          A--a1  
            --b1  
              .  
              .  
              .  
          B--a1  
            --b1  
                .  
                .  
                .    
          C--a1  
            --g1    
  有煩各位兄弟姐妹!  
   
  還有一個問題，怎麼動態生成控件  
  如我想在單機Button1時，產生一個Lable,它的Caption=你好,Color=clWindow

node   :   TTreenode     ;  
  i   :   Integer   ;  
  begin  
      for   I   :=   0   to   treeview1.items.count   -   1   do  
        begin  
              node   :=     treeview1.items[i];  
              if   (node.text   =   'a')   and   (node.Level     =   0)then      
              begin  
                TreeView1.Items.AddChildFirst   (node,'b1');  
              end   ;  
        end   ;  
  end   ;  
  可以將上面的編成函數  
   
  Button1中  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      label1   :   TLabel   ;  
  begin  
      label1   :=   Tlabel.Create   (self);  
      label1.Parent:=   form1;  
      label1.Caption   :=   '你好';  
      label1.Top   :=   100   ;  
      label1.Left   :=   100;  
      label1.Visible   :=   true;  
  end;