Пример.

 


Первоначальное состояние программы может быть установлено с помощью инспектора объектов, либо задано в программе в обработчике FormCreate.

procedure TForm1.FormCreate(Sender: TObject);

begin

CheckBox1.Checked := true;

Button1.Enabled := true;

CheckBox2.Checked := false;

Button2.Enabled := false;

end;

 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

If CheckBox1.Checked then Button1.Enabled:= true

else Button1.Enabled:= false;

end;

 

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

If CheckBox2.Checked then Button2.Enabled:= true

else Button2.Enabled:= false;

end;