var
    Change: Integer;

procedure CustomizeChange;
begin
    if not ..... then
    begin
        ..........;
        Change := CustomizePage_ChangeCombo.ItemIndex;
        ..........;
    end;
end;

function GetChange(Param : String) : String;
var
    i, k: Integer;
begin
    k := 2;
    Result := '';
    case Change of
    begin
        1 : Result := '.....';
        ..........;
        for i := 1 to ..... do
        begin
            ..........;
            if ..... then
            begin
                if ..... then
                    k : Result := .....;
                    k := k+1;
            end;
        end;
    end;
end;

procedure CreateTheWizardPages;
var
    ChangeCombo: TNewComboBox;
    i: Integer;
begin
    CustomizePage := CreateCustomPage(wpSelectDir, 'Страница', 'Страница');
    ChangeCombo := TNewComboBox.Create(CustomizePage);
    ChangeCombo.Top := ScaleY(3);
    ChangeCombo.Left :=  ScaleX(50);
    ChangeCombo.Width := ScaleX(200);
    ChangeCombo.Style := csDropDownList;
    ChangeCombo.Parent := CustomizePage.Surface;
    ChangeCombo.Items.Add('.....');
    begin
        ..........;
        ..........;
        for i := 1 to ..... do
        begin
            ..........;
            if ..... then
            begin
                if ..... then
                    ChangeCombo.Items.Add(.....)
            end;
        end;
    end;
    ChangeCombo.ItemIndex := 0;
    CustomizePage_ChangeCombo := ChangeCombo;
end;