Aplicação para gerar um arquivo .zip

Olá pessoal!

Eu vou começar a fazer uma aplicação que pega todos os arquivos de um diretório e compacta todos eles em um arquivo .zip...

E eu tenho 2 dúvidas...

1ª-Como faço para quando eu abrir um arquivo pelo OpenDialog( esta certo usar este?) e somente eu pegar o caminho da pasta, eu clico em abrir e em um edit box e na aplicação ir só o caminho do diretório onde estão todos os arquivos que desejo zipar??!?!

2ª-No Delphi tem algum modo para gerar arquivos .zip?? senão, onde encontro um componente? pois procurei e tive dificuldade...

obrigado! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif