Fórum ZipMaster via DLL (ProgressBar) #394343

Pessoal, estou desenvolvendo uma DLL para manutenção do meu sistema e uma das funções que criei nessa DLL foi para compactar e restaurar Backups.   Tudo funciona muito bem, porém quero incluir nessa função, algo para que possa executar uma ProgressBar ou Gauge. A pergunta é: "O que preciso incluir nessa função?"   function Backup: String; Export
var
ZipArq: TZipMaster19;
pathexe, tempData, arqBak, arqZip: string;
begin
  //caminho do EXE
  pathexe := ExtractFilePath(ExtractFilePath(ParamStr(0)));
  //cria pasta Backups se não existir
  ForceDirectories(pathexe+'Backups');
  //nome BK pela data
  tempData := pathexe+'Backups\BK_'+FormatDateTime('DD-MM-YYYY_HH-NN-SS',Now);
  arqBak := pathexe+'BD\base.mdb';
  arqZip := tempData+'.zip';   With TZipMaster19.Create(nil) do
  try
    Active := true;
    DLLDirectory := pathexe;
    AddCompLevel := 9;
    try
      FspecArgs.Add(arqBak);
      ZipFileName := arqZip;
      Add;
    except
      on e: Exception do
      begin
        raise Exception.Create(PChar('Erro ao criar arquivo compactado!'+
        #13#10 + e.Message));
      end;
    end;
    finally
    // SuccessCnt conta arquivos add
    If FileExists(tempData+'.zip') and (SuccessCnt > 0) then
    begin
      MessageBox(0,
      PChar('Backup concluído com sucesso!'),
      'Backup', MB_ICONINFORMATION);
    end
    else
    begin
      raise Exception.Create('Erro ao criar arquivo compactado!');
    end;
      Free;
    end;
end;