Подсветка TStringGrid по набору условий

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
          TRect &Rect, TGridDrawState State)
{
     AnsiString Strr;
             Strr= StringGrid1->Cells[ACol][ARow];
         if(Form1->ALARM_Red)
    {
        if(
         ((strstr(Strr.c_str(), "ALARM" ))!=0)||
         ((strstr(Strr.c_str(), "ТРЕВ"))!=0)
        )
        {
                  Strr= StringGrid1->Cells[ACol][ARow];
                  StringGrid1->Canvas->Brush->Color = clCream   ;// clWhite;
                  StringGrid1->Canvas->Font->Color  = clRed;// clBlack;
 
              StringGrid1->Canvas->FillRect(Rect);
              StringGrid1->Canvas->TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Strr);
        }
    }
}

void __fastcall TForm1::Button8Click(TObject *Sender)
{
    StringGrid1->Objects[0][2] = (TObject*)clRed; // 2-я строка будет с красным шрифтом
    StringGrid1->Invalidate(); // перерисовать грид
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    String s = grid->Cells[ACol][ARow];
 
    if(grid->Objects[0][ARow]) // проверяем для нулевой ячейки текущей строки
    {
        TColor color = reinterpret_cast<TColor>(grid->Objects[0][ARow]);
        grid->Canvas->Brush->Color = clCream; // clWhite;
        grid->Canvas->Font->Color  = color; // clBlack;
 
        grid->Canvas->FillRect(Rect);
        grid->Canvas->TextRect(Rect, Rect.Left + 2, Rect.Top + 2, s);
    }
}

    if(s.Pos(L"ALARM") + s.Pos(L"ТРЕВ"))

if( Value.Pos( "ALARM" ) )
{    
    StringGrid1->Objects[0][ARow] = (TObject*)clRed;     
}
StringGrid1->Invalidate();

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
          TRect &Rect, TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    String s = grid->Cells[ACol][ARow];
    if(grid->Objects[0][ARow])
        {
            TColor color0 = reinterpret_cast<TColor>(grid->Objects[0][ARow]);
            grid->Canvas->Brush->Color = color0; // clWhite;
            //grid->Canvas->Font->Color  = clBlack; // clBlack;
            grid->Canvas->FillRect(Rect);
            grid->Canvas->TextRect(Rect, Rect.Left + 2, Rect.Top + 2, s);
        }
    if(grid->Objects[1][ARow])
        {
            TColor color1 = reinterpret_cast<TColor>(grid->Objects[1][ARow]);
            //grid->Canvas->Brush->Color = clWhite; // clWhite;
            grid->Canvas->Font->Color  = color1; // clBlack;
            grid->Canvas->FillRect(Rect);
            grid->Canvas->TextRect(Rect, Rect.Left + 2, Rect.Top + 2, s);
        }
    AnsiString Strr;
    Strr= StringGrid1->Cells[ACol][ARow];
    if(((strstr(Strr.c_str(), "ALARM" ))!=0)||((strstr(Strr.c_str(), "ТРЕВ"))!=0))
        {
            StringGrid1->Objects[0][ARow] = (TObject*)clRed;
            StringGrid1->Objects[1][ARow] = (TObject*)clWhite;
            StringGrid1->Invalidate();
        }
    if(((strstr(Strr.c_str(),"BATTERY" ))!=0))
        {
            StringGrid1->Objects[0][ARow] = (TObject*)clBlue;
            StringGrid1->Objects[1][ARow] = (TObject*)clWhite;
            StringGrid1->Invalidate();
        }
 }

void __fastcall TForm1::Button12Click(TObject *Sender)
{
    int j = StringGrid2->FixedRows;
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
    {
        if(StringGrid1->Rows[i]->Text.Pos("ALARM"))
        {
            StringGrid2->Rows[j++]->CommaText = StringGrid1->Rows[i]->CommaText;
        }
    }
    StringGrid2->RowCount = j;
}

TStringGrid *grid2 = new TStringGrid(this);
grid2->Parent = this;
// и так далее, примеров на форуме предостаточно

void __fastcall TForm1::Button5Click(TObject *Sender)
{
StringGrid1->Visible=true;
StringGrid1->Left=Form26->ClientWidth/2-StringGrid1->Width/2;
StringGrid1->Top=Form26->ClientHeight/2-StringGrid1->Height/2;
}
void __fastcall TForm1::Button6Click(TObject *Sender)
{
StringGrid2->Visible=true;
StringGrid2->Left=Form1->ClientWidth/2-StringGrid2->Width/2;
StringGrid2->Top=Form1->ClientHeight/2-StringGrid2->Height/2;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->Visible=true;
StringGrid1->BringToFront();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
StringGrid2->Visible=true;
StringGrid2->BringToFront();
}