[Dead_Gigabit]

Есть код:

Код:

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

Почему то она работает только для поля DBEdit1, почему не понимаю, код компилиться норм без ошибок, подскажите в чем мой косяк?

[movnet]

[quote=Dead_Gigabit]Есть код:

Код:

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

[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;