StringGrid - закрашивание

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n=Edit1->Text.ToInt()+1;
StringGrid1->RowCount=n;
StringGrid1->ColCount=n;
randomize();
for (int i=1; i<=n; i++)
for(int j=1; j<=n; j++)
StringGrid1->Cells[i][j]=random(100)-50;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int n=Edit1->Text.ToInt()+1;
for (int i=1; i<=n; i++)
for(int j=1; j<=n; j++)
{if (StringGrid1->Cells[i][j]>StringGrid1->Cells[i][j-1]&& StringGrid1->Cells[i][j]>StringGrid1->Cells[i][j+1] && StringGrid1->Cells[i][j]>StringGrid1->Cells[i-1][j]&&StringGrid1->Cells[i][j]>StringGrid1->Cells[i+1][j])
{
//здесь надо закрасить ячейку
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
  if (ACol == 2 && ARow == 2) {
    StringGrid1->Canvas->Brush->Color = clRed;
    StringGrid1->Canvas->FillRect(Rect);
  }
}