diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 76e95a4439..ab03111761 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -175,9 +175,8 @@ end;
 procedure TDBLookup.Notification(AComponent: TComponent; Operation: TOperation);
 begin
   inherited Notification(AComponent, Operation);
-  if (Operation=opRemove) then
-    if (AComponent = FListSource) then
-      FListSource:= nil;
+  if (Operation=opRemove) and (AComponent = FListSource) then
+    FListSource := nil;
 end;
 
 procedure TDBLookup.LinkGetBookMark;