Finde meinen Fehler nicht!!!

[buyden]

Ich erhalte für untenstehende Prozedur ständig eine Fehlermeldung von wegen "table3 not in edit or insert mode". außerdem scheint Delphi die Zeile mit der Checkbox komplett zu ignorieren.
Kann mir mal jemand auf die sprünge helfen?

Delphi-Quellcode:

procedure TForm6.Panel6Click(Sender: TObject);
begin
datamodule2.Table2.edit;
datamodule2.Table3.edit;
if dbcheckbox1.checked=false then
begin
dbedit4.Text:=floattostr(strtofloat(dbedit4.Text)+strtofloat(dbedit2.Text));
dbcheckbox1.Checked:=true;
datamodule2.Table2.Post;
datamodule2.Table3.Post;
end;

end;