Danke, das hat mich auf den richtigen Weg gebracht.
Bei den folgenden Zeilen muss man nur ", EmptyStr" anfügen, dann funktioniert es wie gewünscht.
Delphi-Quellcode:
...
HeaderItem := Body.AddChild('HeaderItem', EmptyStr);
...
MessageState := Body.AddChild('MessageState', EmptyStr);
...