[lmikle]

Сообщение от Deep88

нужно)
я в делфи не сильно силён, поподробней))
как то так?

Нет, не так.
Как-то так:

Код:

 if total then
    form1.ProgressBar1.Max := archives.count*100 else
     form1.ProgressBar1.Position := (i-1)*100 + value;
   Result := S_OK;