diff --git a/packages/fcl-db/src/db.pas b/packages/fcl-db/src/db.pas
index 18df8d303f..31e146dda8 100644
--- a/packages/fcl-db/src/db.pas
+++ b/packages/fcl-db/src/db.pas
@@ -143,7 +143,7 @@ type
     procedure SetDisplayName(const AValue: string); override;
   public
     property Name : string read FName write SetDisplayName;
-    property DisplayName : string read GetDisplayName;
+    property DisplayName : string read GetDisplayName write SetDisplayName;
   end;
 
   { TDefCollection }