[Lazarus] Check for 'default' font

[Alexey]

I find all places of 'default' in Laz-

Here you see all variants... :( Pls, make one variant. SameText(..., 
'default') is best.


if AnsiCompare(.., 'default')=0 then

if SameText(.., 'default') then

if CompareText(... 'default')=0 then
if CompareText(... 'default')<>0 then

if ....='default' then


-- 
Regards,
Alexey