+ Database class in TDBDataset is public, not published, redeclared here

fcl/db/interbase/interbase.pp

@@ -275,6 +275,7 @@ type
     property Database    : TIBDatabase read FDatabase write SetDatabase;
     { This property holds SQL command, which you want to execute }
     property SQL         : TStrings read FSQL write FSQL;
+    Property Database;
   end;
 
 { TIBStoredProc - not implemented - yet :-/}