...
implementation
uses Unit1;
procedure TForm2.btnGuardarListViewClick(Sender: TObject);
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);
SaveToFile('archivo.txt')
finally
Free
end
end;
...