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

Question

首先定义全局变量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;