Merged revisions 7737 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r7737 | michael | 2007-06-20 09:28:14 +0200 (Wed, 20 Jun 2007) | 1 line
  
  * Component name can be empty
........

git-svn-id: branches/fixes_2_2@7738 -

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)