diff --git a/packages/fcl-db/src/sqlite/customsqliteds.pas b/packages/fcl-db/src/sqlite/customsqliteds.pas index a4b4a0a284..33fe54725c 100644 --- a/packages/fcl-db/src/sqlite/customsqliteds.pas +++ b/packages/fcl-db/src/sqlite/customsqliteds.pas @@ -1037,6 +1037,8 @@ procedure TCustomSqliteDataset.InternalPost; var ActiveItem: PDataRecord; begin + inherited InternalPost; + if State <> dsEdit then InternalAddRecord(ActiveBuffer, True) else