diff --git a/lcl/include/dbedit.inc b/lcl/include/dbedit.inc
index 3947461fb7..7599d36eb2 100644
--- a/lcl/include/dbedit.inc
+++ b/lcl/include/dbedit.inc
@@ -271,7 +271,9 @@ procedure TDBEdit.WMKillFocus(var Message: TLMKillFocus);
 begin
   inherited WMKillFocus(Message);
   if not FDatalink.Editing then
-    FDatalink.Reset;
+    FDatalink.Reset
+  else
+    FDatalink.UpdateRecord;
 end;
 
 procedure TDBEdit.LMPasteFromClip(var Message: TLMessage);