Hola,
Bienvenido a estos Foros. Revisa, por favor, la
guía de estilo de los mismos, porque, probablemente, te ayudará para sucesivas cuestiones que se te ocurra plantear. Respecto de tu pregunta, la "cosa" está en la línea:
Código Delphi
[-]
AbZipKit.StoreOptions := [soRecurse];
¡Con ella estás indicando, precisamente, que se añadan al "Zip" las subcarpetas "recursivamente"!
Nota: Fíjate cómo he editado tu mensaje para encerrar el código Delphi entre las etiquetas [ DELPHI ] y [ /DELPHI ], para que, como puedes ver, el código se muestre debidamente formateado y aun algos más.