TXMLDocument als result ausgeben

[Saulmann]

Hallo,

ich versuche gerade ein verändertes XML Dokument mithilfe des Results einer Funktion an eine Procedure zu übergeben.

Delphi-Quellcode:

procedure aendere_XML(name: string);
var
  XML: TXMLDocument;
begin
  XML.FileName := ExtractFileName(openDialog1.FileName);

  //mache etwas

  XML := generiere_neueXML(XML);
  XML.SaveToFile(name+'.xml');
end;

function generiere_neueXML(XML: TXMLDocument): TXMLDocument;
var
  XML_neu: TXMLDocument;
begin
  //fülle xml
  
  result := XML_neu;
end;

Doch leider funktioniert dies nicht.
Ich erhalte folgenden Fehler: EXMLDocError mit der Meldung 'Kein aktives Dokument' aufgetreten.

Wenn ich die XML gleich in der funktion speichere klappt dies aber. Kann mir jemand sagen woran das liegt?

Delphi-Quellcode:

procedure generiere_neueXML(XML: TXMLDocument, name: string);
var
  XML_neu: TXMLDocument;
begin
  //fülle xml -> ergibt xml_neu
  
  XML_neu.SaveToFile(name+'.xml');
end;