Datenspeicherung in *-csv Datei

[moperswings]

Hallo,

der folgende Code funktioniert. Ich möchte nur, dass Ihn mal jemand kurz gegenliest!
In ein Formular sollen - in diesem Demo-Beispiel - aus Textfeldern und Comboboxen Werte in die Datei datensatz.csv gespeichert werden.
Ist das so OK - und vor allem SICHER? Gibt´s Verbesserungsvorschläge?
Viele Grüsse, moperswings

Delphi-Quellcode:

// Setzt die Eingaben alle zurück
procedure TForm1.resetClick(Sender: TObject);
begin
        edit1.Text := '';
        combobox1.ItemIndex := -1;
end;

// speichert die Werte in eine Textdatei
procedure TForm1.speichernClick(Sender: TObject);
var
        f: Textfile;
        wert1: string;
        wert2: string;
        filename: string;
begin
        try
        filename := 'datensatz.csv';
        AssignFile(f, filename);
         {$i-}
        append(f);
        {$i+}
        if IOResult <> 0 then begin
        ShowMessage('Fehler');
        Exit;
        end;
         
        wert1 := Edit1.Text;
        wert2 := ComboBox1.Text;

        Writeln(f, Edit1.Text + ';' + ComboBox1.Text + ';' );

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