Inputquery+wirteln-->E/A-Fehler 105

[NDR]

Nabend

Bei meinen derzeitigen Projekt hab ich wieder ein kleines Problemchen


Kurze Beschreibung:
Es soll in einen Eingabedialog eine Eingabe gemacht werden können und diese beim Klick auf 'OK' an einen Textdatei angehängt werden, andernfalls soll eine Meldung ausgeben werden, dass nichts Hinzugefügt wurde.

Delphi-Quellcode:

procedure TForml.Hinzufgen1Click(Sender: TObject);
var Datei:Textfile; Eingabe:String; ClickedOK: Boolean;
  begin
  AssignFile(Datei,ExtractFilePath(ParamStr(0))+'\liste.txt');
  reset(Datei);
  Eingabe := 'Default String';
  ClickedOK := InputQuery('Neue Kategorie anlegen', 'Bitte geben Sie eine neue Kategorie ein:', Eingabe);
  if ClickedOK then            
    writeln(Datei,'[' + Eingabe + ']')
  else
    showmessage('Es wurde keine neue Kategorie angelegt!');
  end;

Das Problem: Dialog erscheint-->Eingabe wird gemacht und mit 'OK' bestätigt-->Vorgang wird mit der Meldung 'E/A-Fehler 105' abgebrochen und der Zeiger wird auf die Zeile -->writeln(Datei,'[' + Eingabe + ']')<-- gesetzt.

Könnt Ihr mir da weiterhelfen?

mfg NDR