Fehler beim Speichern

[moperswings]

Hallo,

ich bekomme beim Abspeichern eine E/A103 Meldung, aber ich sehe den Fehler nicht!
Vielleicht sieht ja jemand das Problem!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
        f: Textfile;
        pfad: String;
begin
        pfad := Extractfilename(DirectoryListBox1.Directory);
        If not FileExists(DirectoryListBox1.Directory + '\' + pfad + '.html') then
        AssignFile(f, DirectoryListBox1.Directory + '\' + pfad + '.html') ;
        {$i-}
        Rewrite(f);
        {$i+}
        If IOResult <> 0 then
        begin
          ShowMessage('Fehler beim Erstellen von ' + pfad + '.html');
          Exit;
        end;

        Writeln(f, Memo1.Text);
        closefile(f);
end;