Sprawdzenie czy czcionka jest zainstalowana w systemie

Aby po kliknięciu przycisku Button1, znając nazwę czcionki, sprawdzić, czy jest ona zainstalowana w systemie:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (Screen->Fonts->IndexOf("Courier New") >= 0)
      ShowMessage("Znaleziono czcionkę Courier New");
   else
      ShowMessage("Nie znaleziono czcionki Courier New");
}