Componente para Compactar ficheros y carpetas

[Roilo]

Me quedo con el componente ZipForge. Gracias a todos.
Les cuento:
1-Descargué el componente.
2-Lo instalé como explicaba claramente el fichero Readme.txt incluido.
3-Abrí el Delphi.7 y coloqué el componente en mi Form, lo nombré 'compacta'.

Código Delphi [-]
 Compacta.BaseDir := Ubicacion ; //Dirección de los ficheros a compactar.
 Compacta.FileName := Fulano.Zip; //Nombre y ubicacion del fichero compactado resultante.
 Compacta.OpenArchive ; //abrir fichero
 Compacta.AddFiles ; //compactar
 Compacta.CloseArchive ; //Cerrar fichero

Además en la propiedad FileMasks especifiqué los ficheros con sus extensiones que quería compactar, y me percaté de que la propiedad options/recurse me sirve para compactar o no los subdirectorios de BaseDir.

Espero no se me halla quedado nada.
Bueno, hoy mi sistema crea salvas automáticamente, gracias a ustedes, aunque me queda conseguir otra versión del componente porque cada vez que abro Delphi me sale un cartelito haciéndome algunas recordaciones.
Felicidades, Gracias.