Ustalenie, czy używane są duże, czy małe czcionki

Aby po kliknięciu przycisku Button1 ustalić, czy używane są duże, czy małe czcionki:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(Screen->PixelsPerInch == 96)
      ShowMessage("Używane są małe czcionki");
   else if(Screen->PixelsPerInch == 120)
      ShowMessage("Używane są duże czcionki");
   else
   {
      float Ratio = ((float)Screen->PixelsPerInch) / 96.0;
      Ratio *= 100.0;
      ShowMessage("Rozmiar czcionki jest ustawiony na " + IntToStr((int)Ratio) + " %");
   }
}