Fonts in Windows (C++ Builder)

private: // User declarations

UnicodeString text;

void __fastcall Begin();

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

 UnicodeString d,t;

 d=DateToStr(Date());

 t=TimeToStr(Time());

 text=d+"      "+t;

 Label1->Caption=text;

}

void __fastcall TForm1::Begin()

{

 ListBox1->Items->Clear();

 ComboBox1->Items->Clear();

 ComboBox1->Items->Assign(Screen->Fonts);

 ComboBox1->Text="";

 ListBox1->Items->Assign(Screen->Fonts);

 Label2->Caption="All fonts in Windows (testing ComboBox) ";

 Label3->Caption="All fonts in Windows (testing ListBox) ";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

 Begin();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

  Label2->Font->Name=ComboBox1->Text;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1Click(TObject *Sender)

{

 Label3->Font->Name=ListBox1->Items->Strings[ListBox1->ItemIndex];

}