O método que associaremos a este evento é do tipo TZipProcessEvent e deve obrigatoriamente obedecer à seguinte assinatura de parâmetros:
O primeiro parâmetro é o objeto chamador do evento que, neste caso, sempre será um objeto da classe TZipFile. O segundo parâmetro refere-se ao nome do arquivo atualmente em processo de compactação. O terceiro parâmetro é um objeto da classe TZipHeader que carrega informações de cabeçalho do arquivo, como o tamanho, CRC, método de compressão e outros dados. Por fim, o quarto parâmetro indica a quantidade de bytes que já foram processados durante a compactação.
Para o nosso exemplo, codificaremos o método abaixo no formulário, considerando que Label1 será o componente que irá exibir a porcentagem. A matemática é simples: dividimos a quantidade de bytes processados pelo tamanho total do arquivo e, em seguida, multiplicamos por 100 para encontrar a porcentagem.