iss help

Есть CheckBox, нужно как-то собрать вместе два кода - "Паскаль":

procedure NewCheckBox1Click(Sender: TObject);
begin
if(NewCheckBox1.State = cbChecked) then
WizardForm.NextButton.Enabled:=true
else
WizardForm.NextButton.Enabled:=false;
end;

и

Result:=True
if NewCheckBox1.Checked then
Exec(ExpandConstant('{src}\DirectX\DXSETUP.EXE'), '/silent', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
end;

Спасибо всем "умникам", сам спросил, сам отвечу:

begin
if CurStep = ssPostInstall then begin
WizardForm.NextButton.Enabled := false;
if(NewCheckBox1.State = cbChecked) then
Exec(ExpandConstant('{src}\Support\DirectX\DXSETUP.EXE'), '/silent', '', SW_SHOW,
ewWaitUntilTerminated, ResultCode);
WizardForm.NextButton.Enabled := true;
end;
end;

Тему можно закрыть, т.к. вопрос исчерпан!