program test7;

uses
  Classes, XMLReader, XMLTextReader, XMLUtils;

var
  f : TFileStream;
  reader : TXMLReader;
  settings : TXMLReaderSettings;
  input : TXMLInputSource;

begin
  settings := TXMLReaderSettings.Create;
  settings.PreserveWhiteSpace := false;
  settings.Namespaces := true;

  f := TFileStream.Create('test.xml', fmOpenRead);
  input := TXMLInputSource.Create(f);

  reader := TXMLTextReader.Create(input, settings);
  while reader.Read do
  begin
    if reader.NodeType <> ntSignificantWhitespace then
        case reader.NodeType of
        ntElement: Writeln ('Beginning ', reader.name, ' element');
        ntText: Writeln ('  element content: ', reader.value);
        end;
  end;

  f.Free;
end.