DrawGrid - как убрать выделенную ячейку?

void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
        if (cycle)
        {
                cells = random(25);
                DrawGrid->Col = cells / 5;
                DrawGrid->Row = cells % 5;
                DrawGrid->Color = RGB(255, 255, 255);
        }
}

if (array[ACol][ARow])
{
 // закрасить
}

void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
        if (cycle)
        {
                cells = random(25);
                cells_colours[cells / 25][cells % 25] = 1;
                DrawGrid->Repaint();
        }
}

void __fastcall TMainForm::DrawGridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
int i, j;
 
        for (i = 0; i < 5; i++)
                for (j = 0; j < 5; j++)
                {
                        DrawGrid->Col = i;
                        DrawGrid->Row = j;
                        if (cells_colours[i][j])
                                DrawGrid->Color = RGB(255, 255, 255);
                        else DrawGrid->Color = RGB(0, 0, 0);
                }
}

bool cells_colours [5][5];

void __fastcall TForm1::DrawGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        if (cells_colours[ACol][ARow] == 1)
        {
                DrawGrid1->Canvas->Brush->Color = clWhite;
        }
        else if (cells_colours[ACol][ARow] == 2)
        {
                DrawGrid1->Canvas->Brush->Color = clBlue;
        }
        else
        {
                DrawGrid1->Canvas->Brush->Color = clBlack;
        }
        DrawGrid1->Canvas->FillRect(DrawGrid1->CellRect(ACol, ARow));
}