Published TnamedItem.Name as in Delphi

git-svn-id: trunk@7362 -

packages/fcl-db/src/db.pas

@@ -141,9 +141,10 @@ type
   protected
     function GetDisplayName: string; override;
     procedure SetDisplayName(const AValue: string); override;
-  public
-    property Name : string read FName write SetDisplayName;
+  Public  
     property DisplayName : string read GetDisplayName write SetDisplayName;
+  published
+    property Name : string read FName write SetDisplayName;
   end;
 
   { TDefCollection }