diff --git a/lcl/interfaces/qt/qtprivate.pp b/lcl/interfaces/qt/qtprivate.pp
index 8874914630..23651ebf60 100644
--- a/lcl/interfaces/qt/qtprivate.pp
+++ b/lcl/interfaces/qt/qtprivate.pp
@@ -156,7 +156,6 @@ procedure TQtMemoStrings.ExternalUpdate(var AStr: WideString;
 var
   W: WideString;
   TextEdit: TQtTextEdit;
-  B: Boolean;
 begin
   if not FOwner.HandleAllocated then
     exit;
diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 0cd453e280..f032f4fa6b 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -11699,7 +11699,6 @@ end;
 procedure TQtCustomControl.ViewPortEventFilter(event: QEventH; retval: PBoolean); cdecl;
 var
   MouseEventTyp: Boolean;
-  AForm: TCustomForm;
 begin
   {$ifdef VerboseViewPortEventFilter}
     WriteLn('ViewPortEventFilter ',QEvent_type(Event));