diff --git a/lcl/interfaces/customdrawn/customdrawnwinapi_win.inc b/lcl/interfaces/customdrawn/customdrawnwinapi_win.inc
index a235fafd50..c7f7c705f7 100644
--- a/lcl/interfaces/customdrawn/customdrawnwinapi_win.inc
+++ b/lcl/interfaces/customdrawn/customdrawnwinapi_win.inc
@@ -1300,8 +1300,13 @@ begin
   Rec.LParam := LParam;
   Rec.CallBack := CallBack;
   LFW.lfFaceName := UTF8ToUTF16(FontName);
+  {$if fpc_fullversion < 30101}
   Result := LongInt(Windows.EnumFontFamiliesExW(DC,
     LFW, windows.FontEnumExProc(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
+  {$else}
+  Result := LongInt(Windows.EnumFontFamiliesExW(DC,
+     LFW, windows.FontEnumExProcW(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
+  {$ifend}
 end;
 
 (*{------------------------------------------------------------------------------
diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index 1e009f329c..04bbccbf2a 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -1310,8 +1310,13 @@ begin
   Rec.LParam := LParam;
   Rec.CallBack := CallBack;
   LFW.lfFaceName := UTF8ToUTF16(FontName);
+  {$if fpc_fullversion < 30101}
   Result := LongInt(Windows.EnumFontFamiliesExW(DC,
     LFW, windows.FontEnumExProc(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
+  {$else}
+  Result := LongInt(Windows.EnumFontFamiliesExW(DC,
+     LFW, windows.FontEnumExProcW(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
+  {$ifend}
 end;
 
 {------------------------------------------------------------------------------