Datenspeicherung in *-csv Datei

[Klaus01]

Aus meiner Sicht, kannst Du auf den try except Block verzichten,
weil Du ja scho alle möglichen Dateizugriffsfehler mit {$I-} und {$I+}
abfängst.
Grüße
Klaus

Delphi-Quellcode:

procedure TForm1.speichernClick(Sender: TObject); 
var 
  f: Textfile; 
  wert1: string; 
  wert2: string; 
 filename: string; 
begin 
  filename := 'datensatz.csv'; 
  AssignFile(f, filename); 
  {$i-}
     if FileExists(fileName) then 
       append(f)
     else
       rewrite(f);
  {$i+} 
  if IOResult = 0 then 
    begin 
        
      Writeln(f, Edit1.Text + ';' + ComboBox1.Text + ';' ); 

      Closefile(f); 
     end
   else
     showmessage('Ein Fehler ist aufgetreten'); 
end;