Вызов обработчика StringGrid1DrawCell

 void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   if( RadioButton1->Checked == true)
   {
  if (ACol>=0 && ARow==0)
         {
                 StringGrid1->Canvas->Brush->Color=clGray;     //Здесь устанавливаем цвет ячейки
                 StringGrid1->Canvas->Font->Color = clBlack;
                 StringGrid1->Canvas->FillRect(Rect);            //Заливаем ячейку
                 StringGrid1->Canvas->TextOut                     //Поверх залитой ячейки пишим текст в этой ячейке
                 (Rect.Left+2, Rect.Top+2, StringGrid1->Cells[ACol][ARow]);
         }
    }
   else
    {
   if (ACol>=0 && ARow==0)
         {
                 StringGrid1->Canvas->Brush->Color=clWhite;     //Здесь устанавливаем цвет ячейки
                 StringGrid1->Canvas->Font->Color = clBlack;
                 StringGrid1->Canvas->FillRect(Rect);            //Заливаем ячейку
                 StringGrid1->Canvas->TextOut                     //Поверх залитой ячейки пишим текст в этой ячейке
                 (Rect.Left+2, Rect.Top+2, StringGrid1->Cells[ACol][ARow]);  
         }
    }

StringGrid1DrawCell(Sender,0,0,StringGrid1->CellRect(0,0),TGridDrawState() << gdFixed);