Fontes - descobrir se esta disponivel

10 - Como saber se determinada Font está instalada no Windows?

{ Coloque este código no OnClick de um botão }

with Screen.Fonts do

  if IndexOf('Courier New') >= 0 then

    ShowMessage('A fonte está instalada.')

  else

    ShowMessage('A fonte não está instalada.');