Sprawdzenie czy czcionka dostępna dla każdego elementu

Hej, jak sprawdzić czy czcionka jest dostępna w systemie dla każdego elementu ?

 Begin
  if Screen.Fonts.IndexOf(CzcionkaCalibri) <> -1 then
    NazwaCzcionkiWierzcholka:=czcionkaCalibri
  else
    nazwaczcionkiWierzcholka:=czcionkaArial;

  result:=nazwaczcionkiwierzcholka;
End;

ale to działa dla konkretnego

innymi słowy, nie wiem jak przeiterować przez każdy komponent na formie który POSIADA właściwość font, i jesli jest to TLabel lub TRadiogroup to użyć czcionki Calibri, jesli jest to TMEmo, TEdit lub TBitbtn to użyć TAchoma, a jesli którejś z czcionek nie ma to użyć Arial (bo była dostępna od windows 3.1)

ustaw im parentfont na true i wtedy zmiana fontu formy powoduje zmianę fontu komponentów na formie

ale własnie cześć elementów ma calibri a cześć Tachoma

pewnie to jakośc trzeba tak

 if controls[i] is TMemo 

ale ja za słaby jestem zeby wpaść na to samemu

serio - nikt nie podpowie jak to zrobić - w którym zdarzeniu ustalić jakie czcionki są dostępne i zastosować je odpowiednio dla odpowiednich elementów?

nie ma czegoś takiego jak lista dostępnych czcionek dla komponentu - jest tylko lista czcionek w systemie, a to jaką domyślnie ma ustawiony dany komponent zależy od jego twórcy