void __fastcall TForm1::Button4Click(TObject *Sender)
{
        LOGFONT lf ;

        ZeroMemory(&lf, sizeof(LOGFONT));
        lf.lfHeight = 20;
        lf.lfEscapement = 10 * 90;     // 90 <-- 회전 각도
        Form1->Canvas->Font->Handle = CreateFontIndirect(&lf);

        Form1->Canvas->TextOut(400,500,"Hello World") ;
}