QXML转义问题

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。

 

procedure TForm4.btn1Click(Sender: TObject);
var
  MyQXML: TQXML;
begin
  MyQXML := TQXML.Create;
  try
    mmo2.Lines.Clear;
    MyQXML.Parse('<xml name="<![CDATA[奥&巴马]]>希拉&里">abc</xml>');
    mmo2.Lines.Add(MyQXML.AsXML);
    mmo2.Lines.Add('---------------------------------');
    MyQXML.Parse('<xml><![CDATA[奥&巴马]]>希拉&里</xml>');
    mmo2.Lines.Add(MyQXML.AsXML);
  finally
    MyQXML.Free;
  end;
end;