[saurn]

делаю так чтобы удалить старые компоненты но выходит ошибка кто знает в чем проблема ? »

А ничего странного в глаза не бросается? Вот тут:

Код:

procedure InitializeWizard();
var
i, iCount: Integer;
begin

for i := iCount downto 0 do
WizardForm.ComponentsList.Checked[i]:= False;

deleteChk := TCheckBox.Create(nil);
with deleteChk do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(115), ScaleX(400), ScaleY(15));
Caption := 'Удалить старые компоненты';
Checked := True;
Здесь должны быть две логические скобки end;
function IsChecked(): Boolean;
begin
Result := deleteChk.Checked;
end;