[saurn]

высвечивалась Caption := 'NewStaticText1' а 'NewStaticText2' скрылся »

В этом случае не обязательно манипулировать с контролами, можно просто изменять Caption в зависимости от значения в реестре.

Пример

Код:

[Code]
var
    ISCustomPage1: TWizardPage;
    NewStaticText1: TNewStaticText;


procedure RedesignWizardForm();
begin
    ISCustomPage1 := CreateCustomPage(wpWelcome, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

    NewStaticText1 := TNewStaticText.Create(WizardForm);
    with NewStaticText1 do
    begin
        Parent := ISCustomPage1.Surface;
        Caption := 'NewStaticText1';
        Left := ScaleX(16);
        Top := ScaleY(16);
        Width := ScaleX(77);
        Height := ScaleY(14);
    end;
end;


procedure InitializeWizard();
begin
    RedesignWizardForm();
end;


function CompareRegValue(const Value: String): Boolean;
var
    sResult: String;
begin
    RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\7-Zip', Value, sResult);
    if (sResult = '7-Zip 22') then NewStaticText1.Caption := 'Имя 7-Zip 22 найдено' else NewStaticText1.Caption := 'Имя 7-Zip 22 не найдено';
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    case PageFromID(CurPageID) of
        ISCustomPage1: CompareRegValue('DisplayName');
    end;
end;

Длинные тексты помещайте под спойлер: [MORE]ваш текст[/more]