problemas al guardar listview

[demonio6]

Problemas al guardar listview

Un amigo esta creando un scaner y al parecer no puede guardar la información de este listview, la idea era guardarlo como txt y/o csv; el codigo era similar a este:

Código Delphi [-]
S := TStringList.Create; 
for i := 0 to ListView1.Items.Count-1 do 
  S.Add(ListView1.Items[i].Caption +','+ ListView1.Items[i].SubItems.CommaText);  
  S.SaveToFile('archivo.txt'); 
  S.Free;