Hallo glkbkk,
so kannst du alle verfügbaren Schriftarten in einer ComboBox darstellen.
Delphi-Quellcode:
var s:Integer;
begin
for s:=0 to (Screen.Fonts.Count - 1) do
ComboBox1.Items.Add(Screen.Fonts.Strings[s]);
end;
Hoffe das ich helfen konnte.
Tschüß Markus