Binärbaum rekursiv auslesen

[Gargamel]

Das Programm bricht hier ab:

if node.ChildNode1 <> nil then ReadTree(node.ChildNode1);

Der komplette Code steht hier: http://www.delphipraxis.net/165995-b...-anwenden.html
(Die Funktion ReadTree(...) und deren Aufruf in TForm1.Button1Click(...) kommt dann halt noch hinzu.)