Durchsuchen eines Ordners nach Ordnern schlägt fehl

[xZise]

Ich durchsuche mit folgenden Code meine Ordner, und die Ordner des Ordners... Dummerweise erkennt er aber nur eine Datei, obwohl es im übergeben Ordner noch ein weiterer Ordner existiert.

Delphi-Quellcode:

procedure TForm1.ReloadMemos(APath : string; AParent : TTreeNode);
var
   sr : TSearchRec;
begin
   if FindFirst(APath + '*', faAnyFile + faDirectory, sr) = 0 then
     try
        repeat
        case sr.Attr of
          faDirectory : begin
            ReloadMemos(APath + sr.Name + '\', tvMemolist.Items.AddChild(AParent, sr.Name));
          end;
          else begin
             if ExtractFileExt(sr.Name) = '.m2m' then
            begin
               tvMemolist.Items.AddChild(AParent, Copy(sr.Name, 1, Length(sr.Name) - 4));
            end;
          end;          
        end;
        until FindNext(sr) <> 0;
    finally
      FindClose(sr);
    end;
end;