XML Komplett auslesen

[semo]

a little bit pseudocode:
while assigned(xmlnode) do
begin
// do something
Node := node.Next;
end;