TTreeView alles dopelt, warum ?

[mimi]

Hallo,
ich lese die verzeichnis strucktur ein und zwar so:
damit es nicht ewig dauert wollte ich es stückweise machen.
also habe ich folgenden
D:\Daten
D:\Spiele
D:\Programme
diese verzeichnis werden eingelesen und auch deren unterverzeichnise:
D:\Daten\unterverz.\
D:\Spiele\unterverz.\
D:\Programme\unterverz.\
und das sieht dann auch so ungefähr aus.
ich arbeite mit zwei proceduren:

Delphi-Quellcode:

procedure DirsToTreeView(Dir:String; TV:TTreeview;Item:TTreeNode; addFiles:Boolean; ChildCount:Integer);
var
  Sr: TSearchRec;
  parent:TTreeNode;
begin
  // Damit nicht ständig neugezeichnet wird
  dir:=GetDir(dir);
  // Suche nur starten wenn es ein erfolgt wahr also es keine fehler geben hat
  if findFirst(Dir + '*.*', faDirectory,sr) = 0 then begin
    repeat
      // Wenn es sich um verzeichnis handelt
      if sr.name[1] <> '.' then begin
        if ((sr.Attr and faDirectory > 0))  then begin
          item:=tv.Items.AddChild(Item,sr.name);

          Parent:=item.Parent;

          if ChildCount = 0 then begin
            ChildCount:=1;
            DirsToTreeView(dir+sr.name,tv,item,addfiles,ChildCount);
            ChildCount:=0;
          end;
          item:=parent;
        end;
      end; // if sr.name

    until FindNext(SR) <> 0;
  end;
end;

die installsiert die TreeView bzw. befüllt sie mit Verzeichnise aber halt nicht komplet:
die zweite procedure soll jetzt sobalt ich auf ein + zeichen drücke die unterverzeichnis durchsuchen und es dort emebfalls so machen also:
das dort die unterverzeichnise eingelesen werden wie oben gezeigt...
aber halt nicht alle.

Delphi-Quellcode:

procedure DirsToTV(dir:String; tv:TTreeview; item:TTreeNode;count:Integer);
var
  i:Integer;
  pfad:String;
  sr:TSearchRec;
begin
//ShowMEssage(IntToStr(count));
  for i:=0 to Item.Count-1 do begin
    pfad:= getItemPfad(tv,item.Item[i]); ;
    if findFirst(pfad + '\*.*',faDirectory,sr) = 0 then begin
      repeat
        if sr.name[1] <> '.' then begin
          if (sr.Attr and faDirectory > 0) then begin
            if item.item[i] <> NIL then begin
               tv.Items.AddChild(item.item[i],sr.name);
            end;
          end;
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

und genau hier ist auch das problem bei AddChild sobalt ich das aufrufe habe ich den stamm zweimal und ich weiß nicht warum auch wenn ich oben die ShowMessage habe die sag es sein 19 einträge obwohl es nur 9 sind ich weiß einfach nicht mehr weiter.

im anahng ist die exe datei.
achaj: ich arbeitet unter "Delphi 2005 PE"