Zipar mais de um arquivo no mesmo arquivo.zip no delphi

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