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