diff --git a/lcl/include/dbmemo.inc b/lcl/include/dbmemo.inc
index b52a31736e..8537f17daa 100644
--- a/lcl/include/dbmemo.inc
+++ b/lcl/include/dbmemo.inc
@@ -156,7 +156,8 @@ begin
   if FDataLink.CanModify and FDatalink.Editing then begin
     FDataLink.UpdateRecord;
     inherited EditingDone;
-  end;
+  end else
+    FDatalink.Reset;
 end;
 
 procedure TDBMemo.Change;