progressbar when creating file

[GoogleCodeExporter]

when I create the file. zip
shows no progress and the application hangs
ex:
var
 Arch: I7zOutArchive;
begin
 Arch := CreateOutArchive(CLSID_CFormat7z);
 Arch.AddFiles('C:\test', 'folder', '*.exe', true);
 SetCompressionLevel(Arch, 5);
 SevenZipSetCompressionMethod(Arch, m7BZip2);
 Arch.SetProgressCallback(nil, ProgressCallback);//Here hangs the application
 Arch.SaveToFile('c:\test.zip');
end;

Original issue reported on code.google.com by [email protected] on 20 Aug 2013 at 3:53