Урок на делфи 53. Архивируем папку

Задание на Delphi. Архивируем и разархивируем папку https://dear-ruslan.ru/new/urok/delphi/delphiurok53.php для выполнение задачи использовал компоненты и функции ShellAPI, , button, WinExec. и тд.