problemas ao zipar diretorio

como faço para zipar diretorio, tentei várias formas mas todas sem sucesso.
meu código:

Zip.ZipFileName := edtDestino.Text+edtArquivo.Text+.rar;
Zip.FSpecArgs.Clear;
Zip.FSpecArgs.Add(edtDiretorio.Path);
Zip.Add;

no componente o AddRecurseDirs = true.