diff --git a/ide/main.pp b/ide/main.pp
index dc6f131f36..70e944340a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5289,7 +5289,7 @@ function TMainIDE.NewUniqueComponentName(Prefix: string): string;
         if SysUtils.CompareText(AnUnitInfo.ComponentName,Identifier)=0 then exit;
       end;
     end;
-    Result:=true;
+    Result:=false;
   end;
 
   function SearchPackage(APackage: TLazPackage; const Identifier: string): boolean;