delphi ListView 平均复制数据

现在有ListView1 ListView2，ListView1 strings 0 -4 已经有数据，ListView2的数据我想复制到ListView1 strings 5 -8，而且要求可以指定义把ListView2一行的数据复制到ListView1的多少行，直到ListView1行分配完成，比如ListView2 数据
-------------------------------------------
序号   数据1     数据2   数据3   
-------------------------------------------
1     baidu.com   456   456
-------------------------------------------
2    youku.com    456    456
-------------------------------------------复制到ListView1以后是我自定义的行数，比如说两行
-------------------------------
序号  数据1   数据2     数据3   数据4
-------------------------------
1    121     baidu.com  456     456
-------------------------------
2   124      baidu.com  456    456
-------------------------------
3   1232     youku.com  456   456
-------------------------------
4  12232     youku.com  456   456