Leer Xml

[chrids506]

Gracias, lo he resuelto con esto:

Código Delphi [-]
var
  nodoClave,
  nodoSeccion: IXMLNode;
begin
   XMLDocument1.FileName := ExtractFilePath(ParamStr(0)) + '\fincas\'+ENomb.Text+'.xml';
   XMLDocument1.Active := true;
   XMLDocument1.Version := '1.0';
   with XMLDocument1.DocumentElement do
   begin
      nodoSeccion := ChildNodes.FindNode('datos');
      with nodoSeccion do
      begin
         nodoClave := ChildNodes.FindNode('ubi');
         EUbi.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('tam');
         ETam.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('otros');
         MOtros.Lines.Text := nodoClave.Text;
         nodoClave := ChildNodes.FindNode('precio');
         EPrecio.Text := nodoClave.Text;
      end;
   end;
end;

Probablemente no es la mejor manera, pero trabaja bien, gracias!