[Lazarus] fix for issue 32894

[AlexeyT]

+    // Duplicate logic in CreateFontIndirect
+    if not Win32WidgetSet.MetricsFailed and SameText(Font.Name, 
DefFontData.Name) then

Issue 32894
please, change "and SameText(..)" to

and IsFontNameDefault(Font.Name)
(func in LCLProc made by me)


-- 
Regards,
Alexey