Fórum Zipar mais de um arquivo no mesmo arquivo.zip no delphi #167809

Alguem sabe como fazer para salvar mais de um arquivo dentro de um arquivo zip pelo delphi, estou fazendo assim
ShellExecute(0,nil,´winzip32.EXE´, ´-a C:\Destino\´+´NomeArqZip ´+ ´C:\Origem\Arquivo.txt´,nil,SW_HIDE);

mas desse jeito ele salva somente um