diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 6ce2c6639c..81f6104af8 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -128,7 +128,8 @@ begin
   if FListLink.Active and not FListLink.Editing then
   begin
     FetchLookupData;
-    FControlLink.Reset;
+    if FControlLink.Active then
+      FControlLink.Reset;
   end;
 end;