Hola BioStudio.
Creo que te va a resultar mas simple de este modo:
Código Delphi
[-]
....
var
i : Integer;
begin
...
with TStringList.Create do
try
for i := 0 to Form1.ListView1.Items.Count-1 do
Add(Form1.ListView1.Items[i].Caption +','+
Form1.ListView1.Items[i].SubItems.CommaText);
Text := StringReplace(Text,',',';',[rfReplaceAll]);
SaveToFile('archivo.txt')
finally
Free
end
end;
Saludos.