diff --git a/components/printers/qt/qtprinters.inc b/components/printers/qt/qtprinters.inc
index bbacb93249..4a2567e579 100644
--- a/components/printers/qt/qtprinters.inc
+++ b/components/printers/qt/qtprinters.inc
@@ -289,7 +289,6 @@ const
   SName = 'DoGetPaperName';
 var
   i: Integer;
-  Str: WideString;
 begin
   i := QtDefaultPrinter.PageSize;
   Result := FPagesEnum[i];
@@ -329,7 +328,6 @@ function TQtPrinters.DoGetPaperRect(AName: string; var APaperRc: TPaperRect): In
 const
   SName = 'DoGetPaperRect';
 var
-  SavedSize: QPrinterPageSize;
   i: Integer;
 begin
   {$IFDEF VERBOSE_QT_PRINTING}
diff --git a/components/printers/qt/qtprinters_h.inc b/components/printers/qt/qtprinters_h.inc
index d16ee89e2f..22f67c4220 100644
--- a/components/printers/qt/qtprinters_h.inc
+++ b/components/printers/qt/qtprinters_h.inc
@@ -8,11 +8,6 @@ type
   TQtPrinters = class(TPrinter)
   private
     FPagesEnum: TStrings;
-    FPrintSession: Integer;
-    FPrintSettings: Integer;
-    FPageFormat: QPrinterPageSize;
-    FBeginDocumentStatus: QPrinterPrinterState;
-    FNewPageStatus: QPrinterPrinterState;
     FPrinterHandle: TQtPrinter;
 
     procedure CreatePrintSettings;
diff --git a/components/printers/qt/qtprndialogs.inc b/components/printers/qt/qtprndialogs.inc
index f5676fa406..ff7eb62d7b 100644
--- a/components/printers/qt/qtprndialogs.inc
+++ b/components/printers/qt/qtprndialogs.inc
@@ -47,7 +47,6 @@ var
   QtPrnDlg: QPrintDialogH;
   PrnOptions: QAbstractPrintDialogPrintDialogOptions;
   Str: WideString;
-  i: Integer;
 begin
   Result := False;