progress bar en inno setup

[teecweb]

Holas ..

Tengo un procedimiento que demora en ejecutar..entonces para que el usuario no se quede mirando la pantallapienso poner un progressbar segun el tiempo de demora del progressbar ....este el codigoq eu eh puesto

cuando hago clic en la funcion siguiente de welcome me deberia aparecer un progressbar mientras tanto va ejecutandose este procedimiento CreateTheWizardPages (busca rutas)

Código Delphi [-]
 wpWelcome:
     begin
       MsgBox('false', mbInformation, MB_OK);
       ProgressPage := CreateOutputProgressPage('My App','');
       ProgressPage.SetText('Starting installation...', '');
       ProgressPage.SetProgress(0, 0);
       ProgressPage.Show;
       try
         for I := 0 to 10 do begin
           ProgressPage.SetProgress(I, 10);
           Sleep(100);
           end;
          finally
            ProgressPage.Hide;

        end;
     end;

en realidad como pueden ver le doy el tamaño del progreso pero en si no controlo el tiempo de demora del procedimiento..estare al tanto de sus respuestas gracias.