//单元头上添加以下两个单元

Uses XMLDoc, XMLIntf;

//创建xml文件
procedure TForm1.Button7Click(Sender: TObject);
var
  Xml:   TXMLDocument;
  Rootnode,node : IXMLNode;
begin
  Xml := TXMLDocument.Create(nil);
//  Xml.LoadFromFile('aaa.xml');
  try
    //加入版本信息 ‘<?xml version="1.0" encoding="GB2312" ?> ’
    Xml.Active := True;
    Xml.Version := '1.0';
    Xml.Encoding :='GB2312';

    Rootnode := Xml.CreateNode('CIF_INFO');
    Xml.DocumentElement := Rootnode;
    node := Xml.CreateNode('TXNCODE');
    Rootnode.ChildNodes.Add(node);
    node.Text := '420001';
    node := Xml.CreateNode('RESPCODE');
    Rootnode.ChildNodes.Add(node);
    node.Text := '0000';
    node := Xml.CreateNode('CIFID');
    Rootnode.ChildNodes.Add(node);
    node.Text := '0030209728';
    node := Xml.CreateNode('RESCODE');
    Rootnode.ChildNodes.Add(node);
    node.Text := '0000';
    node := Xml.CreateNode('RESMSG');
    Rootnode.ChildNodes.Add(node);
    node.Text := '';

    Xml.SaveToFile('aaa.xml');
    xml.Active := False;
    showmessage('创建成功！');
  finally
    Xml.Free;
  end;
end;

//读取xml文件
procedure TForm1.Button9Click(Sender: TObject);
var
  Xml:   TXMLDocument;
  Rootnode,node : IXMLNode;
  b,c :string;

begin
  Xml := TXMLDocument.Create(Application);
  try
    Xml.LoadFromFile('aaa.xml');
    Xml.Active   := True;
    Rootnode := Xml.DocumentElement;
    b := Rootnode.ChildNodes[ 'CIFID'].NodeValue;
    Memo1.Lines.Add(b);
    xml.Active := False;
  finally
    Xml.Free;
  end;
end;