void __fastcall TForm1::ComboBox1DropDown(TObject *Sender)
{
ComboBox1->Items= Screen->Fonts;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Memo1->Font->Name=ComboBox1->Text;
}