E/A Fehler 105

[chrissy]

Hi!
Ich will Dateien in ein Worddokument von Delphi aus schreiben, ohne dies in Word expliziet anzeigen zu lassen.
Soweit so gut, Datei wird erzeugt, und dann soll mit Writeln hineingeschrieben werden.

Nur leider bekomme ich dabei diese unschöne Fehlermeldung....

hier mal mein Quellcode. Hab irgendwie keine Idee mehr was daran falsch sein könnte....

Delphi-Quellcode:

with Daten.DSSonstigeBefehle.DataSet do
     begin
       if not fileExists(Pfad+'\Dokumente\RechnungK.csv') then document:= TFileStream.Create(Pfad+'\Dokumente\RechnungK.csv', fmCreate)
                                                          else begin
                                                                 AssignFile(f, Pfad+'\Dokumente\RechnungK.csv');
                                                                 Erase(f);
                                                                 document:= TFileStream.Create(Pfad+'\Dokumente\RechnungK.csv', fmCreate);
                                                          end;
       //ShowMessage('Datei angelegt!');
       Open;
       First;
       AssignFile(f, Pfad+'Dokumente\RechnungK.csv');
       while (not eof) do
        begin
          writeln(Pfad+'Dokumente\RechnungK.csv', FieldByName('Rechnungsnummer').AsString+';'+FieldByName('Anrede').AsString+';'+FieldByName('Name').AsString+';'+FieldByName('Vorname').AsString+';'+FieldByName('Strasse').AsString+';'+FieldByName('Hausnummer').AsString+';'+FieldByName('PLZ').AsString+';'+FieldByName('Ort').AsString+';'+FieldByName('Kundennummer').AsString+'K'+';'+FieldByName('Vermittlungsdatum').AsString+';'+FieldByName('Modul').AsString+';'+FieldByName('Preis').AsString+';');
          ShowMessage('Ins Worddokument wurde geschrieben ;)');
          with Daten.tVermittlung do
            begin
              locate('Id', Daten.QSonstigeBefehle.FieldValues['Rechnungsnummer'], []);
              Edit;
              FieldByName('Rechnungsdatum').AsDateTime:=Date;
              FieldByName('Rechnung').AsBoolean := true;
              ShowMessage('Das Rechnungsdatum steht jetzt auch schon in der Vermittlung...');
              post;
              prior;
            end;
          next;
        end;
        CloseFile(f);
     end;
    document.Free;

Gruß
Chrissy