请教xml文件读取问题

Question

<?xml version="1.0" encoding="GB2312"?>
<Version>
<ProductCode>T1.SMBLSJM</ProductCode>
<ProductName></ProductName>
<PackageName></PackageName>
<Version>11.0.0.0</Version>
<DePackageVersion></DePackageVersion>
</Version>
请问如何读取到<Version>11.0.0.0</Version>
这个值，用delphi自带的TXMLDocument

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
  XMLDocument1.LoadFromFile('c:\aa.xml');
  for i:=0 to XMLDocument1.DocumentElement.ChildNodes.Count-1 do
  begin
    if XMLDocument1.DocumentElement.ChildNodes[i].NodeName='Version' then
       ShowMessage(XMLDocument1.DocumentElement.ChildNodes[i].NodeValue);
  end;
end;

Answer 2

procedure TForm1.btn1Click(Sender: TObject);
var
  XMLDocument1: TXMLDocument;
  i: Integer;
begin
  XMLDocument1 := TXMLDocument.Create(nil);
  try
    XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'Ver.xml');
    for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
    begin    end;
  finally
    FreeAndNil(XMLDocument1);
  end;
end;运行到这for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
就出错郁闷

Answer 3

XMLDocument1 := TXMLDocument.Create(Self);

Answer 4

TXMLDocument.Create(Self) 传个参数就对了，nil就不行，为什么呢