if (FindFirst(FFullPath + '*', faAnyFile, SR) = 0) then
    begin
     try
      repeat
       if ((SR.Name <> '.') and (SR.Name <> '..')) then // and ((SR.Attr and faDirectory) = faDirectory)) then
        begin
         Dir := TDirectory.Create(Format('%s%s\', [FFullPath, SR.Name]));
         Dir.FDirName := SR.Name;

         // An dieser Stelle müssen wir prüfen, ob das Verzeichnis Unterverzeichnisse besitzt
         // Dies wird benötigt, damit das "+" Symbol vor der Node angezeigt wird
         // Self.HasSubDirectories := CheckHasSubDirectories;

         Self.SubDirectories.Add(Dir);

         SHGetFileInfo(PChar(FFullPath + SR.Name), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
         Self.iIconIndex := Info.iIcon;
        end;
      until (FindNext(SR) <> 0);
     finally
      FindClose(SR);
      FAlreadyLoaded := True;
     end;
    end;