Einfach so, dann kannst du alle Favoriten der Reihe nach durchgehen
Delphi-Quellcode:
with Screen.Fonts do
if IndexOf('Arial') > -1 then Font.Name := 'Arial'
else if IndexOf('Times New Roman') > -1 then Font.Name := 'Times New Roman'
else if IndexOf('Courier New') > -1 then Font.Name := 'Courier New'
else Font.Name := 'MS Sans Serif';