[Serega]

Понимаю что где то координально ошибся, »

надо так:

Пример

Код:

procedure CheckOnClick_1(Sender: TObject);
begin
  if not №1Check.Checked then
    begin
      №2Check.Checked:= False;
      №3Check.Checked:= False;
    end;
end;

procedure CheckOnClick_2(Sender: TObject);
begin
  if №2Check.Checked or №3Check.Checked then
    №1Check.Checked:= True;
end;

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