[Delphi] написать распоковщик zip архива

Алгоритм:

zip запороленый, распаковываем с помощью пароля.

1) распаковать zip-архив  в папку %AppData%\Program

2) Запустить 2 файла после распоковки 

test.exe

test.vbs

p.s код должен быть в dll-ке, мой exe сам вызовет длл через LoadLibrary