Помогите создать архив с помощью компонента Zip

пример моего кода
Zip1->ArchiveFile="c:\\new.zip";
Zip1->FileSpec->Clear();
Zip1->FileSpec->Add("c:\\unit1.h");
err=Zip1->Compress();
ShowMessage(IntToStr(err));

вот пример из help
Var
FilesCompressed: integer;

ZIP1.ArchiveFile := ‘myarc.zip’;
ZIP1.FileSpec.Clear;
ZIP1.FileSpec.Add (‘c:\windows\*.txt’);
FilesCompressed := ZIP1.Compress;
ShowMessage(IntToStr(FilesCompressed));

почему у меня не работает
ShowMessage выдаёт 0, т.е. 0 файлов добавлено в архив

C созданием архива я уже разобрался
Появилась другая проблема. Не хочет добавлять вложенные папки.