diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index ed2caaa201..5ffe779ff6 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -2180,7 +2180,6 @@ function TQtWidgetSet.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
 var
   WideStr: WideString;
   QtDC: TQtDeviceContext absolute DC;
-  B: Boolean;
   R, R1: TRect;
 
   procedure DoDrawCharByChar(const AClipped: Boolean);