onDrawCell C++ Builder

[Multiman]

Здравствуйте!

Нужно в стрингриде закрасить определенные ячейки.

void __fastcall TCoordinates::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
          TRect &Rect, TGridDrawState State)
{
   	int x,y;

  x=Rect.left+(Rect.Width()-StringGrid1->Canvas->TextWidth(StringGrid1->Cells[ACol][ARow]))/2;
  y=Rect.top+(Rect.Height()-StringGrid1->Canvas->TextHeight(StringGrid1->Cells[ACol][ARow]))/2;
  //if(ACol!=0 && ARow!=0)
  {
	StringGrid1->Canvas->Brush->Color=clWhite;
	StringGrid1->Canvas->Font->Color=clBlack;
	StringGrid1->Canvas->FillRect(Rect);
	StringGrid1->Canvas->TextOut(x,y,StringGrid1->Cells[ACol][ARow]);


  }

  if  ((ACol==StringGrid1->ColCount-18) && ((ARow % 2)==0))   {
	StringGrid1->Canvas->Brush->Color = clSkyBlue;
	StringGrid1->Canvas->FillRect( Rect );
	StringGrid1->Canvas->TextOut(x, y, StringGrid1->Cells[ACol][ARow]);
}
   if  ((ACol==StringGrid1->ColCount-17) && (ARow % 2==0))   {
	StringGrid1->Canvas->Brush->Color = clSkyBlue;
	StringGrid1->Canvas->FillRect( Rect );
	StringGrid1->Canvas->TextOut(x, y, StringGrid1->Cells[ACol][ARow]);
}

   if  ((ACol==StringGrid1->ColCount-14) && (ARow % 2 != 0))   {
	StringGrid1->Canvas->Brush->Color = clSkyBlue;
	StringGrid1->Canvas->FillRect( Rect );
	StringGrid1->Canvas->TextOut(x, y, StringGrid1->Cells[ACol][ARow]);
}
  if  ((ACol==StringGrid1->ColCount-11) && (ARow % 2 != 0))   {
	StringGrid1->Canvas->Brush->Color = clSkyBlue;
	StringGrid1->Canvas->FillRect( Rect );
	StringGrid1->Canvas->TextOut(x, y, StringGrid1->Cells[ACol][ARow]);

}

  }

Все работает норм, но почему то закрашивает криво:



Что нужно изменить чтобы полностью ячейка была закрашена?

И еще вопрос, как по такому же принципу изменить размер шрифта в определенных ячейках?