delphi中控件treeview怎么重复调用？

Question

在主窗体中有个treeview1, 在窗体开始时从数据库中遍历出各个部门。现在在主窗体上有个按钮，进入到一个对话框form2中，在这个对话框中可以选择各部门。这是需要再弹出一个部门列表的form3窗体，以便选择。怎么重复调用主窗体中的treeview1阿，也就是可以在form3中得到和主窗体一样的treeview阿。
多谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  TreeView1.SaveToStream(stream);
  stream.Position:=0;
  TreeView2.Items.BeginUpdate;
  TreeView2.LoadFromStream(stream);
  TreeView2.Items.EndUpdate;
end;

Answer 2

void __fastcall TForm1::Button1Click(TObject *Sender)
{  
    TTreeView * TreeView2;
    TreeView2 = new TTreeView( TreeView1);    TreeView2->Parent = Form2;
    TreeView2->Items->Assign(TreeView1->Items);
    Form2->Show();
}//-----哈!我也回两贴

Answer 3

哈哈给错bcb代码了.
 procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      tt:TTreeNode;   
  begin   
      tt:=TreeView1.Items.Add(nil,'abcd');   
      TreeView2.items.Assign(TreeView1.Items);   
  end;