diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 2924ace7c8..b4edd50b53 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -72,16 +72,16 @@ begin
   FListLink.Control := Self;
   FListLink.OnActiveChange := @ActiveChange;
   FListLink.OnEditingChange:=@EditingChange;
-  FHasLookUpField:= False;
-  FListLinkTmpSetActive := False;
-  FLookupCache := False;
+  //FHasLookUpField:= False;
+  //FListLinkTmpSetActive := False;
+  //FLookupCache := False;
 end;
 
 destructor TDBLookup.Destroy;
 begin
-  FDataFields.Free;
-  FKeyFields.Free;
-  FListLink.Free;
+  FDataFields.Destroy;
+  FKeyFields.Destroy;
+  FListLink.Destroy;
   FLookupList.Free;
   inherited Destroy;
 end;