请问如何程序实现原元件组的复制？？？

[Nuke]

一个Pagecontrol上有一个Page,Page上有一个richedit.
目的是通过程序实现可以新建任意个新Page,每个Page都和原Page相同。
且每个新Page上的richedit都和原Page上的richedit各项属性相同，也有相同的
事件处理过程。但各个Page间操作相互独立。
请问该如何处理呢？？

[corsier]

首先定义全局变量SS（TFILESTREAM类型）和PATH（STRING类型），这里以复制一个
LISTVIEW控件为例，先将LISTVIEW1的信息保存到文件SAVECOMPONENT，然后，再将其信息读出，符给LISTVIEW2，程序代码如下：

//保存LISTVIEW1的信息
PROCEDURE SAVECOMPONENT；
var
ss:TFileStream;
Path:String;
begin
Path:=ExtractFilePath(ParamStr(0));//获得当前路径
Try
ss.Create(Path+'\SaveComponent',fmCreate);
//保存控件信息到SAVECOMPONENT文件
ss.WriteComponent(ListView1);
Finally
ss.Free ;
end;

//读取LISTVIEW1的信息符给LISTVIEW2控件
PROCEDURE READCOMPONENT；
begin
Try
ss.Create(Path+'SaveComponent',fmOpenRead);
ss.ReadComponent(ListView2); //从SAVECOMPONENT文件读回控件信息给LISTVIEW2
Finally
ss.Free ;
end;
end;