Utiliser TZipper avec une barre de progression

Bonjour à tous.
Je crée des archives ZIP avec l'unité zipper.
Je voudrais ajouter une barre de progression.
Je cherche comment utiliser l'événement OnProgress.
Merci.

Bonjour,

Comme dans l'exemple ici ?

Cordialement.

Oui, c'est juste ce qu'il me faut.
Merci.