C++ Builder: работа со шрифтами

#pragma hdrstop
 
#include "Unit1.h"
//-----------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-----------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-----------------------------------------------------------
 
// событие создания формы
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//циклически заполняем комбобокс
 for(int i=0;i<Screen->Fonts->Count;i++)
  ComboBox1->Items->Add(Screen->Fonts->Strings[i]); 
 ComboBox1->ItemIndex=0;
//ставим шрифт в Label-пример
 Label1->Font->Name=ComboBox1->Text;
}
//-----------------------------------------------------------
 
//событие изменения комбобокса
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
//ставим шрифт в Label-пример
 Label1->Font->Name=ComboBox1->Text;
}
//-----------------------------------------------------------