[Dead_Gigabit]

Есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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, почему не понимаю, код компилиться норм без ошибок, подскажите в чем мой косяк?