XML Endtag finden

[Pader1305]

Hallo nochmal,
Ich habe den folgenden Code nun verwendet, kann leider aber nicht überprüfen, ob er funktioniert

Delphi-Quellcode:

var
   lStringListDatei : TStringList;
   
    begin
      lStringListDatei.Encoding.UTF8;
      lStringListDatei.LoadFromFile(lConfig.getXMLDatabase, TEncoding.UTF8);
      lStringListDatei.Insert(1,'<test>');
      lStringListDatei.Add('</test>');
      lStringListDatei.SaveToFile(lConfig.getXMLDatabase, TEncoding.UTF8);

    end;

Ich bekomme nur eine 'access violation at 0x004b7038: write of Adress': Fehlermeldung und werde dort hin verwiesen mit einer Markierung in die FDefaultEncoding Zeile.

Delphi-Quellcode:

{ TStrings }

constructor TStrings.Create;
begin
  inherited Create;
  FDefaultEncoding := TEncoding.Default;
  FLineBreak := sLineBreak;
  FDelimiter := ',';
  FQuoteChar := '"';
  FNameValueSeparator := '=';
  FOptions := [soWriteBOM, soTrailingLineBreak, soUseLocale];
end;