OpenXML eksempel

Hej,

Er der nogen der haret kode eksempel der bruger OpenXML (http://www.philo.de/xml/) til at læse store XML filer (2 GB). Eller er der nogen kan vise mig hvordan jeg kan modificere koden nedenfor så at der ikke bruges så meget ram.

procedure TForm1.Button15Click(Sender: TObject);
var
I:integer;
Doc: TDOMDocument;
Node: TDomNode;
line:string;
List: TDomNodeList;
begin
Doc:=XmlToDomParser1.FileToDom(listbox1.Items[0]);
List := Doc.DocumentElement.GetElementsByTagName('scan');
for I:=0 to list.length-1 do
    memo1.Lines.add(List.item(i).nodeName);
end;

mvh,

Rune