diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 6489cd38c4..63fc69aff1 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -2116,7 +2116,7 @@ begin
   end;
 
   {$ifdef VerboseQt}
-  WriteLn(' Font metrics height: ', AFont.Metrics.height, ' Angle: ',
+  WriteLn(' Font metrics height: ', Font.Metrics.height, ' Angle: ',
     Round(0.1 * Font.Angle));
   {$endif}
 end;