Как перевернуть текст в ячейке String Grid

HFONT __fastcall TRMap::CreateRotatedFont(TFont* font, int angle)
{
     LOGFONT lf;

     lf.lfHeight         = font->Height ;
     lf.lfWidth          = 0 ;
     lf.lfEscapement     = angle * 10 ;
     lf.lfOrientation    = 0 ;
     if(font->Style.Contains(fsBold))
        lf.lfWeight      = FW_BOLD ;
     else
        lf.lfWeight      = FW_NORMAL ;
     lf.lfItalic         = 0 ;
     lf.lfUnderline      = 0 ;
     lf.lfStrikeOut      = 0 ;
     lf.lfCharSet        = Byte(Font->Charset);
     lf.lfOutPrecision   = 0 ;
     lf.lfClipPrecision  = 0 ;
     lf.lfQuality        = 0 ;
     lf.lfPitchAndFamily = 0 ;

     strcpy (lf.lfFaceName, font->Name.c_str()) ;

     return CreateFontIndirect (&lf) ;

}
    ...
    HFONT hFont90              = CreateRotatedFont(Canvas->Font, 90);
    Canvas->Font->Handle = hFont90;