Да вот он собсно, индикатор
Код:
procedure SevenZip1Progress(Sender: TObject; Filename: WideString;
FilePosArc, FilePosFile: Int64);
begin
//Показ процесса паковки\распаковки во время работы
//для всего архива
progressbar1.Position := fileposArc;
//для отдельных файлов
progressbar2.Position := fileposfile;
application.ProcessMessages;
end;
Filename кстати, имя обрабатываемого в данный момент файла
З.Ы. 7ZA.DLL должна в папке со сборкрой лежать