Wyświetlenie listy zainstalowanych w systemie czcionek

Aby po kliknięciu przycisku Button1, wyświetlić w komponencie ComboBox1 listę dostępnych w systemie czcionek:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ComboBox1->Items->Assign(Screen->Fonts);
}

lub

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for (int i = 0; i < Screen->Fonts->Count; i++)
      ComboBox1->Items->Add(Screen->Fonts->Strings[i]);
}