Zlib упаковка и распаковка с паролем

[seawolf]

Приветствую коллег!

Ковыряю zlib на предмет упаковки и распаковки с паролем.
Для упаковки функцию пока не нашел. Если она есть в природе может кто подскажет ?
Для распаковки использую
unzOpenCurrentFilePassword (Long file, *Cstring pwl),Short,Pascal,Raw,Name('unzOpenCurrentFilePassword')

но ее вышибает при попытке раскрытия возвращает ошибку и все слетает
может я не правильно протоnип перевел ?
unzOpenCurrentFilePassword OF(unzFile file, const char* password);