[Deep88]

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

Код:

 if total=100 then
    form1.ProgressBar1.Max := archives.count*100 else
     form1.ProgressBar1.Position := archives[i]-1;
   Result := S_OK;

как то так?
в каком направлении копать чтоб сделать плавный прогрессбар?
есть ещё пример для архиватора Freearc. там тоже как ни крутил не получалсоь общий прогрессбар. приду домой скину пример.