diff --git a/lcl/interfaces/qt6/qtwidgets.pas b/lcl/interfaces/qt6/qtwidgets.pas
index 3972acac25..d2aa6a53d8 100644
--- a/lcl/interfaces/qt6/qtwidgets.pas
+++ b/lcl/interfaces/qt6/qtwidgets.pas
@@ -6704,7 +6704,7 @@ begin
       try
         Result := SlotMouseWheel(Sender, AEvent);
       finally
-        QEvent_destroy(Event);
+        QEvent_destroy(AEvent);
       end;
       Result := False;
     end;