Error bei XML Speicherfreigabe

[Leo675]

Interface:
IXMLSchicht2_eintrag_listeType = interface(IXMLNodeCollection)

XML-Deklaration

Code:

TDateFromID_FN = class
  
  private
    fXML_DOC : TXMLDocument;
    fXML_S2Eintrag  : IXMLSchicht2_eintrag_listeType;

  public
  procedure SaveToFileXML(const aFileName : String ='');

    constructor Create; virtual;
    destructor Destroy; override;
    property XML : IXMLSchicht2_eintrag_listeType read fXML_S2Eintrag write fXML_S2Eintrag;

constructor TDateFromID_FN.Create;
  begin
    try
      slK2     := TStringList.Create;
      slVSK2   := TStringList.Create;
      slKZ2    := TStringList.Create;
      slE23    := TStringList.Create;
      slKInfo2 := TStringList.Create;
      slBInfo2 := TStringList.Create;

      fXML_DOC := TXMLDocument.Create(nil);
      fXML_S2Eintrag := Getschicht2_eintrag_liste(fXML_DOC);
      fXML_DOC.Active:= True;
      fXML_DOC.Version := '1.0';
      fXML_DOC.StandAlone  := 'yes';
      fXML_DOC.Encoding  := 'UTF-8';
    except
      ....
    end;
  end;

  destructor TDateFromID_FN.Destroy;
  begin    
    ....
    fXML_DOC.Active  := False;
    fXML_DOC.free;
  end;
  
procedure TDateFromID_FN.SaveToFileXML(const aFileName: String);
begin
  fXML_DOC.SaveToFile(aFileName);
end;

Funktion Aufruf

Code:

S2Daten:= TDateFromID_FN.Create;
S2Daten.SaveToFileXML('C:\temp\XML\S2_Test'+DateToStr(Now
      )+'.xml');
S2Daten.Free;