Schrift ändern

Erstelle ein Programm, das bei einem Label den Schriftstil ändert.

void __fastcall TForm1::CheckBoxClick(TObject *Sender)
{
	if (CheckBox1->Checked)
		Label1->Font->Style = Label1->Font->Style << fsBold;
	else
		Label1->Font->Style = Label1->Font->Style >> fsBold;
 
	if (CheckBox2->Checked)
		Label1->Font->Style = Label1->Font->Style << fsItalic;
	else
		Label1->Font->Style = Label1->Font->Style >> fsItalic;
 
	if (CheckBox3->Checked)
		Label1->Font->Style = Label1->Font->Style << fsUnderline;
	else
		Label1->Font->Style = Label1->Font->Style >> fsUnderline;
}