Fórum Extrari com ZipMstr19 #406635

Criei uma função para excuir arquivos com o componente ZipMaster usando DLL DelZip190.dll versão 1.9.0.92 mas não extrai nenhum arquivo.   Minha idéia é passar o caminho de Origem e Destino para que todos os arquivos compactados no diretório sejam descompactados para o diretório de  destino.   Ele apresenta o seguinte erro: 'Error - no zip file specified!'   O que está errado na função ou o que faltou?     function TFormPrincipal.Extrair(DirOrigem, DirDestino: String): String;
var
  Lista: TListBox;
  I: word;
  NomeArq: String;
begin
  try
    DirList.Directory := DirOrigem;
    for I:=0 to ArqList.Count -1 do
    begin
      NomeArq := DirOrigem+'\'+ArqList.Items.Strings[I];
      with zip do
      begin
        // Arquivo para Descompactação
        FspecArgs.Clear;
        FSpecArgs.Add(NomeArq);
        ExtrBaseDir := DirDestino;
        try
          Extract;
        except
          raise Exception.Create('Erro na Extração!');
        end;
        result := 'Arqvios descompactados com sucesso...';
      end;
    end;
  Finally   end;
end;