problemas al guardar listview

[BioStudio]

Gracias nuevamente por tu ayuda nlsgarcia!

Para completar un poquito más dejo uno para TXT:

Código Delphi [-]
procedure TForm2.BitBtn1Click(Sender: TObject);

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

var
  i : Integer;
  saveDialog : TSaveDialog;

begin

  saveDialog := TSaveDialog.Create(self);
  saveDialog.Title := 'Respaldo de Archivo en Formato TXT';
  saveDialog.InitialDir := GetCurrentDir;
  saveDialog.Filter := 'Texto (delimitado por tabulaciones) (*.txt)|*.txt';
  saveDialog.DefaultExt := 'txt';
  saveDialog.FilterIndex := 1;

  if saveDialog.Execute then
  begin
     with TStringList.Create do
     try
        for i := 0 to umain.Form1.ListView1.Items.Count-1 do
           Add(umain.Form1.ListView1.Items[i].Caption +',' +
               umain.Form1.ListView1.Items[i].SubItems.CommaText);
           Text := StringReplace(Text,',',#9,[rfReplaceAll]);
           try
              SaveToFile(SaveDialog.FileName);
           except
              ShowMessage('Error en la Generación del Archivo TXT');
           end;
     finally
        free;
     end;
  end;

  saveDialog.Free;

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
end;

y uno para PRN:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

var
  i : Integer;
  saveDialog : TSaveDialog;

begin

  saveDialog := TSaveDialog.Create(self);
  saveDialog.Title := 'Respaldo de Archivo en Formato PRN';
  saveDialog.InitialDir := GetCurrentDir;
  saveDialog.Filter := 'Texto con formato (delimitado por espacios) (*.prn)|*.prn';
  saveDialog.DefaultExt := 'prn';
  saveDialog.FilterIndex := 1;

  if saveDialog.Execute then
  begin
     with TStringList.Create do
     try
        for i := 0 to umain.Form1.ListView1.Items.Count-1 do
           Add(umain.Form1.ListView1.Items[i].Caption +',' +
               umain.Form1.ListView1.Items[i].SubItems.CommaText);
           Text := StringReplace(Text,',',#32,[rfReplaceAll]);
           try
              SaveToFile(SaveDialog.FileName);
           except
              ShowMessage('Error en la Generación del Archivo PRN');
           end;
     finally
        free;
     end;
  end;

  saveDialog.Free;

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

end;