Вопрос Подскажите пожалуйста как к обычному чек боксу привязать функцию

[Salamandra]

Ребята подскажите пожалуйста как к этому чек боксу что на скрине привязать вот это

[InstallDelete]
Type: filesandordirs; Name: "{app}\mods\*"
Type: filesandordirs; Name: "{app}\res_mods\*"


САМ ЧЕК БОКС КОД
{ NewCheckBox1 }
NewCheckBox1 := TNewCheckBox.Create(WizardForm);
with NewCheckBox1 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(96);
Width := ScaleX(332);
Height := ScaleY(25);
Caption := ' Очистить папки «mods» и «res_mods»';
end;
NewCheckBox1.TabOrder := 5;
with WizardForm.MainPanel do
begin
Width := ScaleX(499);
OnClick := @MainPanelClick;
end;

 

[Хамик]

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPreInstall then
  begin
    if NewCheckBox1.Checked then
      begin
        DelTree(ExpandConstant('{app}\mods\*'), false, true, true);
        DelTree(ExpandConstant('{app}\res_mods\*'), false, true, true);
      end;
  end;
end;

 

[Salamandra]

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPreInstall then
  begin
    if NewCheckBox1.Checked then
      begin
        DelTree(ExpandConstant('{app}\mods\*'), false, true, true);
        DelTree(ExpandConstant('{app}\res_mods\*'), false, true, true);
      end;
  end;
end;

и тогда когда чек бокс выбран он будет чистить папку а если не выбран то чистить не будет так ??? если не сложно вот посмотри потому что как у меня сейчас то он все удаляет постоянно если не сложно помоги прожалуйста впихнуть код что бы только удалялось все в папках когда чек бокс выбран

 

[Salamandra]

он не чистит если просто подключить функцию а если не закоментировать это то
[InstallDelete]
Type: filesandordirs; Name: "{app}\mods\*"
Type: filesandordirs; Name: "{app}\res_mods\*"
стирается все независимо выбрана очистка папок или нет
мне нужно что бы чистилось только когда я выберу чек бокс а когда не выбрано то находящиеся файлы в папке не затрагивались

 

[Salamandra]

Кто то может помочь?

 

[Andreo Fadio]

он не чистит если просто подключить функцию а если не закоментировать это то
[InstallDelete]
Type: filesandordirs; Name: "{app}\mods\*"
Type: filesandordirs; Name: "{app}\res_mods\*"

 

[Salamandra]

Спасибо работает