Не могу изменить цвет ячейки StringGrid (Builder 6)

int Nomer_str=1;
 int Cvet=0; //Cvet=0 Красный  Cvet=1 НЕТ цвета
void Analiz_stroki();
 
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State){
 
 if (Cvet==0){
 StringGrid1->Canvas->Brush->Color=clRed;
if (ACol==2 && ARow==Nomer_str) {
 StringGrid1->Canvas->FillRect(Rect);
 StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top,
  StringGrid1->Cells[ACol][Nomer_str]);
}
}
}
//---------------------------------------------------------------------------
void Analiz_stroki(){
.
.
.
if (pole1[jjj]=='X') {
Nomer_str=jjj;
       if (pl1/100==pl3){
       Cvet=1;
      Form1-> StringGrid1->Cells[2][jjj] = "Новые координаты X";
     }
 
    else  {
    Cvet=0;
    Form1-> StringGrid1->Cells[2][jjj] = "координаты X не в допуске";
    }
  }
 
if (pole1[jjj]=='Y') {
Nomer_str=jjj;
       if (pl1/100==pl3) {
      Cvet=1;
      Form1-> StringGrid1->Cells[2][jjj] = "Новые координаты Y";
      }
     else  {
     Cvet=0;
     Form1-> StringGrid1->Cells[2][jjj] = "координаты Y не в допуске";
    }
  }
 
 if (pole1[jjj]=='Z'){
   pole3[jjj]=1;
       if (pl1/100==pl3) {
       Cvet=1;
       Form1-> StringGrid1->Cells[2][jjj] = "Новые координаты Z";
       }
       else  {
       Cvet=0;   
       Form1-> StringGrid1->Cells[2][jjj] = "координаты Z не в допуске";
       }
     }
 
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        if((int)StringGrid1->Objects[ACol][ARow] == 0)
        {
                StringGrid1->Canvas->Brush->Color=clRed;
        }
        StringGrid1->Canvas->FillRect(Rect);
        StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
}

void __fastcall TForm_List_Rajon::StringGrid_ZajawkiDrawCell(TObject *Sender,
      int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
          //Для удобства
TCanvas *a = this->StringGrid_Zajawki->Canvas;
//Далее необходимо установить стандартные цвета, те что у тебя будут, если условие не выполняется
//цвет как у тебя стоял если бы значение ячейки было бы равно пустому месту.
 //this->StringGrid1->Canvas->Brush->Color = clWindow; //
a->Brush->Color = clCream;
//теперь, у нас ячейки бывают трех видов
//1. Фиксированная - это когда стоит свойство fixed gdFixed
//2. Выделенная - когда выделяешь gdSelected
//3. и "Сфокусированная" - это на которой у тебя стоит курсор gdFocused
//за это состояние отвечает переменная State
//------------------------------------------------------------------------------
//теперь ставим цвет для фиксированной ячейки
if (State.Contains(gdFixed)) a->Brush->Color = clBtnFace;   // clMoneyGreen;
//------------------------------------------------------------------------------
//Так как у нас простое условие, т.е. либо есть текст, или нет текста, тогда будет так
//У меня .ToInt() стоит, ты можешь твой тип поставить например ToDouble.
try
{                     
// закрасить первую ячейку адреса лимоно-зеленым цветом 0>30 min
   if ((!State.Contains(gdFixed))&&//чтоб не закрашивалась фиксированая колонка
 
   (StrToInt(this->StringGrid_List->Cells[25][ARow])>=0)       //здесь любые 
   &&(StrToInt(this->StringGrid_List->Cells[25][ARow])<=30) // условия
   &&(ACol == 3)// здесь номер колонки которую хочешь закрасить
      )
   a->Brush->Color = clLime;// цвет закраски
 
 //  
}
catch(...)
{
 //try Нужен для того что бы если вдруг в твоей ячейки текст окажется, тогда он ее красить не будет
}
//------------------------------------------------------------------------------
//Все, мы установили условия расскраски, теперь закрашиваем
a->FillRect(Rect);
//------------------------------------------------------------------------------
//тут дополнил еще что бы выделение работало
//будет ячейку рамкой обводить
//TColor cwet = clGradientActiveCaption;
if (State.Contains(gdSelected))
{
    a->Pen->Color = clBlue;
    a->Brush->Color = cwet;        // Lime   Yellow   Teal
    a->Rectangle(Rect);
}
//------------------------------------------------------------------------------
//Далее, так как DefaultDrawing = False; необходимо еще и текст напечатать.
//можно стандартным TextRect
//a->TextRect(Rect,Rect.left,Rect.top,this->StringGrid1->Cells[ACol][ARow]);
//но мне нравится больше DrawText - описание есть в справке, в нем расположенние
//текста можно устанавливать и многое другое.
//TRect - делает смещение.
 
TRect r = Rect;
r.left +=2;
r.top  +=2;
DrawText(a->Handle,this->StringGrid_Zajawki->Cells[ACol][ARow].c_str(),-1,(TRect*)&r,DT_LEFT);
//
}

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State){
 
TCanvas *a = this->StringGrid1->Canvas;
a->Brush->Color = clCream;
//------------------------------------------------------------------------------
try
{                     
   if ((!State.Contains(gdFixed))&&        //чтоб не закрашивалась фиксированая колонка
   (StrToInt(this->StringGrid1->Cells[2][ARow])==0) // условие  для закраски
   &&(ARow == Nomer_str)   // номер строки для закраски
      )
   a->Brush->Color = clLime;// цвет закраски
}
 
catch(...)
{
//try Нужен для того если в ячейке окажется текст, тогда он ее красить не будет
}
//------------------------------------------------------------------------------
a->FillRect(Rect);  // закрашиваем
//------------------------------------------------------------------------------
a->TextRect(Rect,Rect.left,Rect.top,this->StringGrid1->Cells[ACol][ARow]);
 
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxDesgn"
#pragma link "frxPreview"
#pragma link "RpDefine"
#pragma link "RpRave"
#pragma link "RpRender"
#pragma link "RpRenderCanvas"
#pragma link "RpRenderPreview"
#pragma link "RpRenderPrinter"
#pragma link "frxCtrls"
#pragma link "frxCross"
#pragma link "frxExportDOCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//TfrxMasterData * Band1;
//TfrxMasterData * Band2;
  int   Nomer_str = 2;
 TColor cwet = clGradientActiveCaption;// цвет курсора в списке
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 StringGrid1->Cells[5][2]="Закрасить";// выбираем примерно какую строку и колонку хочешь закрасить.
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
 
TCanvas *a = this->StringGrid1->Canvas;
a->Brush->Color = clCream;
 
if (State.Contains(gdFixed)) a->Brush->Color = clBtnFace;   // clMoneyGreen;
//------------------------------------------------------------------------------
 
try
{                     
   if ((!State.Contains(gdFixed))&&//чтоб не закрашивалась фиксированая колонка
 //здесь проверяет на меку для закраски в колонке 5 и закрашиваем колонку 3
   (this->StringGrid1->Cells[5][ARow]=="Закрасить")       
   //&&(this->StringGrid1->Cells[25][ARow]=="") // условия
   &&(ACol == 3)// здесь номер колонки которую хочешь закрасить
      )
   a->Brush->Color = clLime;// цвет закраски
 
 //  
}
catch(...)
{
 //try Нужен для того что бы если вдруг в твоей ячейки текст окажется, тогда он ее красить не будет
}
//------------------------------------------------------------------------------
a->FillRect(Rect);
if (State.Contains(gdSelected))
{
    a->Pen->Color = clBlue;
    a->Brush->Color = cwet;        // Lime   Yellow   Teal
    a->Rectangle(Rect);
}
 
TRect r = Rect;
r.left +=2;
r.top  +=2;
DrawText(a->Handle,this->StringGrid1->Cells[ACol][ARow].c_str(),-1,(TRect*)&r,DT_LEFT);
//  
}
//---------------------------------------------------------------------------

#pragma link "frxClass" 
#pragma link "frxDesgn" 
#pragma link "frxPreview" 
#pragma link "RpDefine" 
#pragma link "RpRave" 
#pragma link "RpRender" 
#pragma link "RpRenderCanvas" 
#pragma link "RpRenderPreview" 
#pragma link "RpRenderPrinter" 
#pragma link "frxCtrls" 
#pragma link "frxCross" 
#pragma link "frxExportDOCX"[/quote]

//&&(ACol == 3)// здесь номер колонки которую хочешь закрасить