Lazarus - исходники консольного архиватора

Используя библиотеку ZLib написал вот такой простой архиватор-разархиватор.
Для командной строки .

То есть чтобы запаковать папку DOCS в архив DOCS.ZZ пишем команду:
zz d docs docs.zz
Чтобы запаковать файл FILE.DOC в архив FILE.ZZ пишем
zz f file.doc file.zz
Для извлечения удобнее всего использовать атрибут HERE - здесь:
zz docs.zz here
zz file.zz here