Procedure funktioniert nicht?

[ManuMF]

Kleiner Tipp am Rande: Wenn du die Zeile der Fehlermeldung (nicht im Code, sondern in der Liste) markierst und [F1] drückst, öffnet sich die Hilfe uns sagt dir, was zu der Meldung führt.

Und: schreibe besser folgendes:
ListBox1.Items.AddStrings(Screen.Fonts); Das fügt die Fonts der Listbox hinzu. Mit deinem Code weist du hingegen die Fonts den Strings zu, ist nicht so glücklich

Ach so, TFontStyles = set of TFontStyle
TObject() funktioniert mit TFontStyle, aber nicht mit dem Set of, also TFontStyles. Das ist der Fehler. Eine Lösung habe ich momentan leider nicht
Aber wozu brauchst du das denn? Sieht nach einer Auswahl von Schriftart und Schriftstil aus. Vielleicht kannst du der Listbox einfach nur einen String hinzufügen, und später per IF den entsprechenden Stil setzen:

Delphi-Quellcode:

if (Listbox2.Items[ListBox2.ItemIndex] = 'Italic') then
  ? := fsItalic
else if ...

So in der Art.