[Lazarus] fix for issue 32894

[Mattias Gaertner]

On Sun, 31 Dec 2017 17:38:21 +0300
AlexeyT via Lazarus <lazarus at lists.lazarus-ide.org> wrote:

> +    // 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)

Applied.

Mattias