Sprawdzenie czy czcionka jest zainstalowana w systemie
Aby po kliknięciu przycisku Button1, znając nazwę czcionki, sprawdzić, czy jest ona zainstalowana w systemie:
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"); }