请教：Delphi中如何动态根据已有的控件(组)创建控件(组)？

比如，我要建立一个多文档的程序。
用到了一个PageControl，我已经建立好了一个PageControl下的TabSheet，这个TabSheet中还包含一个RichEdit控件。我欲点击新建按钮时，完整复制一个已经建立好的的TabShet和RichEdit控件，并且这些控件中已经存在了一部分事件的代码。这样应该如何做？多线程？