diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 6613b9c6d0..40ffe30105 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -480,7 +480,7 @@ type
     procedure setNumCopies(const AValue: Integer);
     function getPrinterState: QPrinterPrinterState;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
     function NewPage: Boolean;
     function Abort: Boolean;
@@ -2533,8 +2533,10 @@ begin
 end;
 
 procedure TQtClipboard.AttachEvents;
+{$IFNDEF MSWINDOWS}
 var
   Method: TMethod;
+{$ENDIF}
 begin
   inherited AttachEvents;
   {$IFNDEF MSWINDOWS}
diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 454f16772f..4cefb61b6d 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6516,8 +6516,6 @@ begin
 end;
 
 function TQtTableView.horizontalHeader: TQtHeaderView;
-var
-  AParams: TCreateParams;
 begin
   {$ifdef VerboseQt}
     WriteLn('TQtTableView.horizontalHeader');