procedure TForm1.CheckBox4Click(Sender: TObject);
begin try
Label20.Enabled := not CheckBox4.Checked;
Edit7.Enabled :=Label20.Enabled;
Button4.Enabled :=Label20.Enabled;
if CheckBox4.Checked then Edit7.Text:='';
except end;End;