SetProgressCallback shows insufficient space available if format is set to UDF

[GoogleCodeExporter]

What steps will reproduce the problem?
1. I used your example shown at progdigy related to progressbar but instead of 
7zip format I tried to uncompress an ISO image

with CreateInArchive(CLSID_CFormatUdf) do
  begin
    OpenFile('d:\myiso.iso'); //udf iso 
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('e:\'); //a pendrive
  end;
2. If progressbar is not used, then it works as expected.
3. BTW: program becomes unresponsive.

What is the expected output? What do you see instead?
Progressbar working, but I only see error.

What version of the product are you using? On what operating system?
1.2

Please provide any additional information below.
Thanks by advance. Great component. I'm using Delphi 7.

Original issue reported on code.google.com by [email protected] on 24 Mar 2012 at 7:38