[Cranz86]

Народ, помогите пожалуйста с событиями. Понимаю что где то координально ошибся, но объясню что есть и что надо. Если первый чекбокс снять, то 2 и 3 благополучно снимаются, но делаются не кликабельными, а хочется что бы на их нажатие реагировал первый чекбокс, т.е. из двух событий работает первое и оно перекрывает второе.

Код:

procedure OnClickCheck(Sender: TObject);
begin
    if №1Check.Checked = false then
      begin
        №2Check.Checked := false;
        №3Check.Checked := false;
      end;

    if №2Check.Checked = true or №3Check.Checked = true then
      begin
        №1Check.Checked := true;
      end;
end;

procedure InitializeWizard();
begin
  CreateTheWizardPages;
  №1Check.OnClick := @OnClickCheck;
  №2Check.OnClick := @OnClickCheck;
  №3Check.OnClick := @OnClickCheck;
end;