Inno Setup Простая страница прогресса для раздела Run

Мой установщик очень простой, в основном это:

1. Страница приветствия
2. Страница прогресса
3. Последняя страница

Страницы приветствия и финала стандартные (всего одна кнопка). На странице «Прогресс» я незаметно устанавливаю кучу других программ.

Фактический сценарий устанавливает каждую программу в разделе `[Run].
Проблема в том, что полоса достигает 100%, а затем остается там.
Я могу изменить только текст сообщения.

Я хотел бы показать прогресс с помощью Pascal Script (поскольку это может позволить мне иметь больше гибкости), что-то вроде:

procedure InitializeWizard;
begin
  ProgressPage.SetProgress(1, 100);
  exec(.......)
  ProgressPage.SetProgress(15, 100);
  exec(.......)
  ProgressPage.SetProgress(40, 100);
  ...
  ...
end;

Таким образом, я могу показать более точный индикатор выполнения. Вот что у меня (имитация установки. Взято из примера):

[Code]

var
  ProgressPage: TOutputProgressWizardPage;

procedure InitializeWizard;
begin
  ProgressPage := CreateOutputProgressPage('My App','');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  I: Integer;
begin
  if CurPageID = wpWelcome then begin
    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 else
    Result := True;
end;

Проблема в том, что когда я создаю установщик, он не показывает страницу приветствия (установщик запущен, но ничего не отображается).

Что я делаю не так?

Заранее спасибо!