TCustomConnection.DoCloseError virtual

(cherry picked from commit cd909ec2bcbb6f1031188c363edebe0425d0590f)

packages/fcl-db/src/base/db.pas

@@ -2227,7 +2227,7 @@ type
     procedure SetBeforeConnect(const AValue: TNotifyEvent);
     procedure SetBeforeDisconnect(const AValue: TNotifyEvent);
   protected
-    Procedure DoCloseError(aError : Exception);
+    Procedure DoCloseError(aError : Exception); virtual;
     procedure SetForcedClose(AValue: Boolean); virtual;
     procedure CloseForDestroy;
     procedure DoLoginPrompt; virtual;