1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button3Click(Sender: TObject);

var pfad :string;
    n:TTreeNode;
    t, t1:longint;
    myFirstXML : IXMLDocument;
    test:string;
begin
OpenDialog1.Execute;
pfad := ExtractFileName(OpenDialog1.FileName);
edit1.Text := pfad;

  jkXML1.filename:=edit1.text;
  jkXML1.ParseXMLFile;
  TreeView1.Items.Clear;
  // hier wird der Root-Knoten Land erstellt!
  ShowXMLTree(TreeView1.items, TreeView1.Items.Add(nil, 'Land'),jkxml1.XML);
end;