1   
2   /*I was surprised to find a quick and easy way to get a list of system fonts. I 
3   have seen code that are over 15 lines of code this one is 2 lines. */
4   
5   void __fastcall TForm1::FormCreate(TObject *Sender)
6   {
7    ComboBox1->Items->Assign(Screen->Fonts);
8    ComboBox1->ItemIndex=0;
9   }
10  //---------------------------------------------------------------------------
11  void __fastcall TForm1::ComboBox1Change(TObject *Sender)
12  {
13      Label1->Font->Name=ComboBox1->Text;
14  }
15  //---------------------------------------------------------------------------