StringGrid как изменить шрифт колонок

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
 // СОХРАНЕНИЕ ТЕКУЩИХ ДАННЫХ ТАБЛИЦЫ -----------------------------------------
 TStringGrid *Grid = dynamic_cast <TStringGrid*> (Sender);                     // Сохраняю ссылку на текущую таблицу
 String       text = Grid->Cells[ACol][ARow];                                  // Сохраняю текст текущей ячейки
 
 
 // ПОДГОТОВКА К ОТРИСОВКЕ ЯЧЕЕК ТАБЛИЦЫ --------------------------------------
 if(State.Contains(gdFixed))                                                   // Выполняется отрисовка ячейки заголовков:
  {                                                                            //
   GradientFillCanvas(Grid->Canvas, Grid->GradientStartColor,                  // - градиентно заливаю
                      Grid->GradientEndColor, Rect, gdVertical);               //   ячейку
   Grid->Canvas->Font->Color = clBlue;                                         // - устанавливаю цвет шрифта ячейки
   Grid->Canvas->Font->Style = TFontStyles() << fsBold;                        // - устанавливаю начертание шрифта ячейки
   Grid->Canvas->Font->Size  = 10;                                             // - устанавливаю размер шрифта ячейки
  }                                                                            //
 else if(State.Contains(gdSelected))                                           // Выполняется отрисовка ячейки с данными:
  {                                                                            //
   Grid->Canvas->Brush->Color = Grid->Color;                                   // - устанавливаю цвет заливки ячейки по умолчанию
   Grid->Canvas->Font->Color  = Grid->Font->Color;                             // - устанавливаю цвет шрифта ячейки по умолчанию
  }
 
 
 // ОТРИСОВКА ЯЧЕЕК ТАБЛИЦЫ ---------------------------------------------------
 Grid->Canvas->FillRect(Rect);                                                 // Заливаю ячейку установленным цветом
 DrawText(Grid->Canvas->Handle, text.w_str(), -1, &Rect,                       // Вывожу в текущую ячейку таблицы текст в одну строку
          DT_CENTER | DT_VCENTER | DT_SINGLELINE);                             // с выравниванием по вертикали и горизонтали
}

 if(State.Contains(gdFixed))                                                   // Выполняется отрисовка ячейки заголовков:
  {                                                                            //
   GradientFillCanvas(Grid->Canvas, Grid->GradientStartColor,                  // - градиентно заливаю
                      Grid->GradientEndColor, Rect, gdVertical);               //   ячейку
   Grid->Canvas->Font->Color = clBlue;                                         // - устанавливаю цвет шрифта ячейки
   Grid->Canvas->Font->Style = TFontStyles() << fsBold;                        // - устанавливаю начертание шрифта ячейки
   Grid->Canvas->Font->Size  = 10;                                             // - устанавливаю размер шрифта ячейки
  }

TGridRect myRect;
    myRect.Left = -1;
    myRect.Top = -1;
    myRect.Right = -1;
    myRect.Bottom = -1;
    StringGrid1->Selection = myRect;