Prozess kann auf Datei nicht zugreifen?

[Akut-Programming]

Achja, ich und XML :mrgreen: Beim laden einer neuen XML Datei aus der Anwendung heraus, bekomme ich die Fehlermeldung, das der Prozess nicht auf die Datei zugreifen kann. Ich übergebe den Dateinamen über einen Savedialog.

Delphi-Quellcode:

procedure Tfrm_main.Button1Click(Sender: TObject);
var
   newBug, newSub: IXMLDOMNode;
begin
      xmlDoc2 := CoDOMDocument40.Create;
      xmlDoc2.setProperty('NewParser', true);
      newBug := frm_main.xmldoc2.createElement('bug');
      newSub := frm_main.xmldoc2.createElement('bezeichnung');
      newSub.text := frm_main.ed_bugbez.Text;
      newBug.appendChild(newSub);
      ...
      frm_main.xmlDoc2.appendChild(newBug);
      frm_main.xmlDoc2.save(SaveDialog1.FileName); // Hier kommt die Fehlermeldung
end;

Hier die Prozedur beim Neu anlegen einer Datei..

Delphi-Quellcode:

procedure Tfrm_main.Neu1Click(Sender: TObject);
begin
  if SaveDialog1.Execute
  then begin
    FileCreate(SaveDialog1.FileName);
    xmlDoc2 := CoDOMDocument40.Create;
    xmlDoc2.setProperty('NewParser', true);
    xmlDoc2.load(SaveDialog1.FileName);
    lbl_open_list.Caption:=SaveDialog1.FileName;
    xml_file:=SaveDialog1.FileName;
    FocusControl(ed_bugbez);
  end;
end;

Kann mir da jemand helfen?