diff --git a/ide/main.pp b/ide/main.pp
index 04c5d5b9b2..019648b9ea 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7837,7 +7837,8 @@ begin
     Project1.AddFile(NewUnitInfo,
                      NewFileDescriptor.AddToProject
                      and NewFileDescriptor.IsPascalUnit
-                     and NewUnitInfo.IsPartOfProject);
+                     and NewUnitInfo.IsPartOfProject
+                     and (pfMainUnitHasUsesSectionForAllUnits in Project1.Flags));
   end;
 
   // syntax highlighter type