[Serega]

Как будто не успевает процедура FFD отработать. »

Замените все ewNoWait на ewWaitUntilTerminated и будет успевать вноситься.

Подскажите как перейти? »

Должно быть так:

Подробнее

Код:

//Определяем дополнительную страницу для Project (с кнопкой «Обзор…»)
var
  ProjectDirPage: TInputDirWizardPage;
  VSTDirPage: TInputDirWizardPage;

function GetProjectDir(Param: String): String;
begin
  Result := ProjectDirPage.Values[0];
end;

function GetVSTDir(Param: String): String;
begin
  Result := VSTDirPage.Values[0];
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
  if CurPage = ProjectDirPage.ID then
    begin
      if ProjectDirPage.Values[0] = '' then // это условие никогда не выполнится
      //   Указываем путь папки с проектами по умолчанию
      ProjectDirPage.Values[0] := (ExpandConstant('{sd}')+'\Projects');
    end;
  if CurPage = VSTDirPage.ID then
    begin
      if VSTDirPage.Values[0] = '' then // это условие тоже никогда не выполнится
      //   Указываем путь к папке VST Plugins
      VSTDirPage.Values[0] := (ExpandConstant('{pf}')+'\VSTPlugins');
    end;
  Result := True;
end;

// ***************************************************************************************************************************************

//Это страница, в которой отображаются выбранные параметры установки
//Чтобы в нее прописать указанный путь установки папки с проектами, пишем следующую функцию
//По необходимости указываем дополнительные параметры установки (компоненты и т.п.)

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S: String;
begin
  S := S + MemoDirInfo;
  S := S + NewLine + NewLine;
  S := S + 'Папка с проектами:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  S := S + 'VST Plugins:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  Result := S;
end;

procedure InitializeWizard();
begin
  // InitializeWizardCWP
  //Создание дополнительной страницы после указанной wpSelectProgramGroup
  ProjectDirPage := CreateInputDirPage(wpSelectProgramGroup,
    'Выбор папки с проектами', 'В какой папке будут находиться проекты программы?',
    'Пожалуйста, укажите папку, в которой будут сохранены проекты программы.'#13#13'Путь к папке с проектами может быть изменен в "ххх">"ххх".',
    False, '');
  ProjectDirPage.Add('');
  ProjectDirPage.Values[0] := GetPreviousData('ProjectDir', '');

  // InitializeWizardVST
  //Создание дополнительной страницы после указанной wpSelectProgramGroup
  VSTDirPage := CreateInputDirPage(ProjectDirPage.ID,
//                                  ^^^^^ тут указать предыдущую страницу? как?
    'Выбор папки с VST Plugins', 'В какой папке будут находиться VST Plugins?',
    'Пожалуйста, укажите папку, в которую будут VST Plugins.'#13#13'Путь к папке с VST Plugins может быть изменен в "ххх">"ххх".',
    False, '');
  VSTDirPage.Add('');
  VSTDirPage.Values[0] := GetPreviousData('VSTDir', '');
end;