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

[marabu]

Delphi-Quellcode:

if inputquery('Entnahme-Assistent', 'Wie viele Artikel sollen entnommen werden?', str1) 
and TryStrToInt(str1, i5) then begin
  DataModule4.Tabelle.Edit;
  DataModule4.Tabelle.FieldValues['ART_STUECK'] := i4 - i5;
  Datamodule4.tabelle.Post;
        
  // cls; ???
  formentnehmen.hide;
  form2.show;
end;
str1 := '';

ReadOnly sollte die Tabelle allerdings wirklich nicht sein.

Grüße vom marabu