Merge pull request #8 from skamradt/master

forEach Correction

Author: David Berneda

TeeGenericTree.pas

@@ -275,7 +275,7 @@ procedure TNode<T>.ForEach(const AProc: TNodeProc; const Recursive: Boolean);
 
   t:=0;
 
-  while t<Count do
+  while t<Length(tmp) do
   begin
     N:=tmp[t];