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;