diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 98e935c55c..7d19f99d76 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -561,7 +561,7 @@ type
     procedure EndUpdate;
     property FontData: TFontData read GetData write SetData;
     function HandleAllocated: boolean;
-    property Handle: HFONT read GetHandle write SetHandle; deprecated;
+    property Handle: HFONT read GetHandle write SetHandle; deprecated 'use Reference.Handle instead';
     function IsDefault: boolean;
     function IsEqual(AFont: TFont): boolean; virtual;
     property IsMonoSpace: boolean read GetIsMonoSpace;