Сжатие папки

Я пытаюсь использовать

TZipFile.ZipDirectoryContents()

Вот так:

TZipFile.ZipDirectoryContents('Test.PCF', WorkingDir);

Если я правильно читаю, он должен сохранить содержимое папки папку «workingdir» в файл с именем Test.pcf.

Теперь, когда я делаю это, я получаю сообщение об ошибке::

Raised exception class EFOpenError with message Cannot open file
...test.pcf. The process cannot access the file because its being used by another process."

Две вещи меня смущают:

1. Он говорит, что не может открыть файл. Еще нет test.pcf. Я надеялся, что это создаст его.

2. Пишет, что нет доступа к файлу. Это потому, что он еще не создан? Я использую эту функцию? Если да, то как мне создать zip-файл из папки?