Problem beim Auslesen einer XML Datei

[Wishmaster]

hallo alle zusammen
ich möchte die Virtualtreeview in eine XML Datei speichern/Laden
das mit dem speichern klappt auch (I think) doch mit dem laden der XML Datei komme ich einfach nicht weiter.
ich benutze die open source NativeXml library und hatte versucht diesen code zu adoptieren
vielleicht hat einer von euch ne lösung?

thanks in advance!!!

Delphi-Quellcode:

function TMain_Form.Save_File(FileName : String) : Boolean;
var
  pNode : PVirtualNode;
  Data : PNodeData;
  XML  : TNativeXml;
  iNode : TXmlNode;

procedure ProcessTreeItem(pNode : PVirtualNode;  iNode : TXmlNode);
var cNode : TXmlNode;
begin
 if (pNode = nil) then
  exit;

  Data:= VT.GetNodeData(pNode);
  cNode:= iNode.NodeNew('Item');
  cNode.AttributeAdd('Title', Data^.Title);
  cNode.AttributeAdd('Value', Data^.Value);

  pNode:= pNode.FirstChild;
 while pNode <> Nil do
  begin
   ProcessTreeItem(pNode, cNode);
   pNode := pNode.NextSibling;
  end;
end;


begin
  XML:= TNativeXml.CreateName('password manager');
  XML.Declaration.Encoding:= 'UTF-16';
  XML.ExternalEncoding:= seUTF16LE;
  XML.XmlFormat:= xfReadable;

  iNode:= XML.Root.NodeNew('preset');
 try
    pNode:= VT.GetFirst();
   while pNode<>Nil do
    begin
     ProcessTreeItem(pNode, iNode);
     pNode:= pNode.NextSibling;
    end;

   XML.SaveToFile(FileName);
  if (Assigned(XML)) then
   FreeAndNil(XML);
   Result:= True;
 except
  on E: Exception do
   begin
    if (Assigned(XML)) then
     FreeAndNil(XML);
   end;
 end;
end;

Code:

<?xml version="1.0" encoding="utf-16"?>
<password manager>
   <preset>
      <Item Title="Test 1" Value="">
         <Item Title="Test 2" Value="Value 2"/>
         <Item Title="Test 3" Value="Value 3"/>
      </Item>
   </preset>
</password Manager>