diff --git a/lcl/interfaces/qt5/qtwidgets.pas b/lcl/interfaces/qt5/qtwidgets.pas
index 78d252b7e0..fb4d38569b 100644
--- a/lcl/interfaces/qt5/qtwidgets.pas
+++ b/lcl/interfaces/qt5/qtwidgets.pas
@@ -462,7 +462,7 @@ type
     destructor Destroy; override;
     function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
     procedure ViewPortEventFilter(event: QEventH; retval: PBoolean); cdecl;
-
+    procedure Destroyed; cdecl; override;
     procedure DestroyNotify(AWidget: TQtWidget); override;
   public
     function CanAdjustClientRectOnResize: Boolean; override;
@@ -17658,6 +17658,12 @@ begin
   end;
 end;
 
+procedure TQtCustomControl.Destroyed; cdecl;
+begin
+  viewportDelete;
+  inherited Destroyed;
+end;
+
 procedure TQtCustomControl.DestroyNotify(AWidget: TQtWidget);
 begin
   if AWidget = FCornerWidget then