>EDatabaseError< Einfüge Editiermodus || Was soll ich machen

[EDatabaseError]

so noch mal das ganze bin am ende und hab keine ahnung wo der fehler liegt:

Code:

procedure TFormEntnehmen.BitBtn1Click(Sender: TObject);
var i1, i2, i3, i4, i5: Integer;
    str1: String;
begin
showmessage('1');
 if radiobutton1.checked = true then
  begin
   showmessage('2');
   //suche nach lagernummer
   TRY
   showmessage('3');
    i1 := StrToInt(MaskEdit1.Text);
    i2 := StrToInt(MaskEdit2.Text);
    i3 := StrToInt(MaskEdit3.Text);
    showmessage('4');
    DataModule4.Tabelle.open;
    if DataModule4.Tabelle.Locate('NUM_LAGER;NUM_REGAL;NUM_ART', VarArrayOf([i1, i2, i3]), [loCaseInsensitive]) then
     begin
      showmessage('...');
      MaskEdit1.Text := DataModule4.Tabelle.FieldValues['NUM_LAGER'];
      MaskEdit2.Text := DataModule4.Tabelle.FieldValues['NUM_REGAL'];
      MaskEdit3.Text := DataModule4.Tabelle.FieldValues['NUM_ART'];

      Edit1.Text := DataModule4.Tabelle.FieldValues['ART_NAME'];
      Edit2.Text := DataModule4.Tabelle.FieldValues['ART_NUM'];
      Edit3.Text := DataModule4.Tabelle.FieldValues['ART_DESCR'];

      i4 := DataModule4.Tabelle.FieldValues['ART_STUECK'];

      Panel3.Caption := 'Vorhanden: ' + IntToStr(i4);

      if inputquery('Entnahme-Assistent', 'Wie viele Artikel sollen entnommen werden?', str1) = true then
       begin 
        i5 := StrToInt(str1); 
        str1 := '';


        DataModule4.Tabelle.readonly := false;

        datamodule4.tabelle.edit;

        DataModule4.Tabelle.FieldValues['ART_STUECK'] := i4 - i5; 
        datamodule4.tabelle.post;

        cls; 
        formentnehmen.hide; 
        form2.show;
       end 
      else str1 := '';
     end
    else
     begin
      Messagedlg('Artikel nicht gefunden!', mtError, [mbOK], 0);
     end;
   EXCEPT
    Messagedlg('Eingabe ungültig oder im falschen Bereich!', mtError, [mbOK], 0);
    str1 := '';
   END;
  end
 else
  begin
   //suche nach artikeldaten
   TRY

   EXCEPT
    Messagedlg('Artikel nicht gefunden!', mtError, [mbOK], 0);
   END;
  end;
end;