перерисовка StringGrid

[Китос]

В общем мне нужно чтобы ячейки StringGrid'a были разноцветными.
Делаю я это так:

void __fastcall TForm1::tableDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
		  TGridDrawState State)
{
if ((ACol>2 && ACol<6 || ARow>2 && ARow<6) && !(ACol>2 && ACol<6 && ARow>2 && ARow<6)) //Выбор определенных ячеек
  table->Canvas->Brush->Color=clGradientInactiveCaption;                      //Беру один цвет
else table->Canvas->Brush->Color=clWhite;                                     //иначе возвращаю белый цвет
table->Canvas->FillRect(Rect);                                                //закрашиваю ячейку.
table->Canvas->Font->Color=cl3DDkShadow;                                      //Цвет для текста,
table->Canvas->TextOut(Rect.left+10,Rect.top+4,table->Cells[ACol][ARow]);     //вставляю текст.

Но отображается все это как-то не важно:

Помогите все это как-нибудь исправить.
Заранее спасибо.