Експорт в двух ListView в 1 csv

[lordonx3]

ытался сделать экспорт с двух лист вайвов в 1 файл csv.
Нужно чтобы выглядело так:
1 столбик 2 столбик 3 столбик 4 столбик 5 столбик 6 столбик
значение значение значение значение значение значение
значение значение значение значение значение значение
значение значение значение значение значение значение
значение значение значение значение значение значение
Первые 3 столбика со значениями из lv1 идут нормально, а вот значения из sListView1 идут уже совсем, совсем криво, непонятно.
Вот сам код:
Заранее спасибо за помощь.

var 
i,a,b,c:Integer; 
all,all2: TStrings; 
SubItems: TStrings; 
begin 
{a:=lv1.Items.Count-1; 
b:=sListView1.Items.Count-1; 
c:=lv2.Items.Count-1; 
i:=a+b+c;    } 
all:=TStringList.Create; 
all2:=TStringList.Create; 
for i:=0 to lv1.Items.Count-1 do 
     begin 
     all.Add( lv1.Items.Item[i].Caption+';'+ 
            lv1.Items.Item[i].SubItems.Strings[0]+';'+ 
            lv1.Items.Item[i].SubItems.Strings[1]+';'+ 
            lv1.Items.Item[i].SubItems.Strings[2]); 
     end; 
     for i:=0 to sListView1.Items.Count-1 do 
     begin 
     all.Add(sListView1.Items.Item[i].Caption+';'+ 
            sListView1.Items.Item[i].SubItems.Strings[0]+';'+ 
            sListView1.Items.Item[i].SubItems.Strings[1]+';'+ 
            sListView1.Items.Item[i].SubItems.Strings[2]); 
     end; 
            all.SaveToFile('all.csv');

[lordonx3]

help me

[Аватар]

Во-первых ни хрена не понятно, что нужно сделать
Во-вторых код полностью не соответствует тому, что ни хрена не понятно
В-третьих изложите понятным образом, как нужно из 2-ух листвью получить один стринглист