diff --git a/components/ideintf/propeditutils.pp b/components/ideintf/propeditutils.pp
index 9a708231c4..62c50b3364 100644
--- a/components/ideintf/propeditutils.pp
+++ b/components/ideintf/propeditutils.pp
@@ -224,7 +224,7 @@ var
 begin
   if SourceSelectionList = Self then Exit;
   Clear;
-  if (SourceSelectionList <> nil) and (SourceSelectionList.Count > 0) then
+  if Assigned(SourceSelectionList) then
   begin
     FForceUpdate := SourceSelectionList.ForceUpdate;
     FPersistentList.Count := SourceSelectionList.Count;