diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 086ad6a02e..430866b64f 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -144,6 +144,8 @@ begin
     SetLength(FListKeys, 0);
     FControlItems.Clear;
   end;
+  if Assigned(FControlLink) and FControlLink.Active then
+    FControlLink.Reset;
 end;
 
 procedure TDBLookup.DatasetChange(Sender: TObject);