delphi读写xml文件报错

是用delphi读写xml文件的一点代码，不知道哪错了 标记为红色的地方最后的分号不加，下面的Xml报错，加上还不能运行，求大神帮忙 delphi xml
[解决办法]
注释掉吧..应该只是个说明
[解决办法]
1，创建的时候不能create(nil)，有窗体的form，就是xml:=txmldocument.create(self);
如果没有创建的单元，创建需要先创建comp:=TCompnonet.create(nil);
xml:=txmldocument.create(comp);

2，红色的地方注释掉，下面的代码就是写这个头