diff --git a/rtl/objpas/classes/compon.inc b/rtl/objpas/classes/compon.inc
index f94728e4ee..502c318dc3 100644
--- a/rtl/objpas/classes/compon.inc
+++ b/rtl/objpas/classes/compon.inc
@@ -283,7 +283,7 @@ Procedure TComponent.SetName(const NewName: TComponentName);
 
 begin
   If FName=NewName then exit;
-  If not IsValidIdent(NewName) then
+  If (NewName<>'') and not IsValidIdent(NewName) then
     Raise EComponentError.CreateFmt(SInvalidName,[NewName]);
   If Assigned(FOwner) Then
     FOwner.ValidateRename(Self,FName,NewName)