[Asinkrit]

Код можно вдвое сократить)

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  dbedit1.ReadOnly:=not checkbox1.Checked;
  dbedit2.ReadOnly:=not checkbox1.Checked;
  dbedit3.ReadOnly:=not checkbox1.Checked;
  dbedit4.ReadOnly:=not checkbox1.Checked; 
  dbedit5.ReadOnly:=not checkbox1.Checked;
  dbedit6.ReadOnly:=not checkbox1.Checked;
  dbedit7.ReadOnly:=not checkbox1.Checked;
  dbedit8.ReadOnly:=not checkbox1.Checked;
  dbedit9.ReadOnly:=not checkbox1.Checked;
  dbedit10.ReadOnly:=not checkbox1.Checked;
  dbedit11.ReadOnly:=not checkbox1.Checked;
  dbedit12.ReadOnly:=not checkbox1.Checked;
  dbmemo1.ReadOnly:=not checkbox1.Checked;
  bitbtn7.Enabled:=checkbox1.Checked;
end;