procedure TMainForm.Button2Click(Sender: TObject);
var
XMLDocument1:TXMLDocument;
begin
memo1.Clear;
memo1.Lines.Add('<?xml version="1.0" encoding="GBK"?>');
memo1.Lines.Add('<TransResponse>我是中国人</TransResponse>');
XMLDocument1:=TXMLDocument.Create(Self);
with XMLDocument1 do
begin
XML.Add(Memo1.Text);
Active := True;
Encoding := 'UTF-8';