Закрашивание ячеек в StringGrid

int i,j,a11,b11;
double a1,b1,sum1,sum2,sum3,sum,dh;
double matr;
void __fastcall TFrmVpl::Btn21Click(TObject *Sender)
{
     FrmVpl->PgCont1->Pages[2]->Show();
     StGr2->FixedCols=0;
     StGr2->FixedRows=0;
     StGr2->ColCount=a11;       //задаем размер по ширине
     StGr2->RowCount=b11;       //задаем размер по длине
     for(i=0;i<FrmVpl->StGr1->ColCount-1;i++){    //столбец
       for(j=0;j<FrmVpl->StGr1->RowCount-1;j++){    //строка
         sum1=StrToFloat(StGr1->Cells[i][j])+
                StrToFloat(StGr1->Cells[i][j+1]);
         sum2=StrToFloat(StGr1->Cells[i+1][j])+
                StrToFloat(StGr1->Cells[i+1][j+1]);
         sum3=(sum1+sum2)/4;    //средняя отметка каждой ячейки
         matr+=StrToFloat(StGr1->Cells[i][j]);  //сложение каждой ячейки
         sum=matr/((a11+1)*(b11+1));    //общая средняя отметка
         dh=sum-sum3;   //средняя отметка ячейки
         //if(dh>0){
 
         //}
         FrmVpl->StGr2->Cells[i][j]=dh;
 
       }}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TFrmVpl::StGr2DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
     if(Btn21->OnClick){
        FrmVpl->StGr2->Cells[i][j]=dh;
        if(dh>0){
             FrmVpl->StGr2->Canvas->Brush->Color=clRed;
             FrmVpl->StGr2->Canvas->Font->Color=clBlack;
        }
        else if(dh>0) {
             FrmVpl->StGr2->Canvas->Brush->Color=clGreen;
             FrmVpl->StGr2->Canvas->Font->Color=clBlack;
        }
        else {
             FrmVpl->StGr2->Canvas->Brush->Color=clRed;
             FrmVpl->StGr2->Canvas->Font->Color=clYellow;
        }
     }
}

StGr2->DefaultDrawing=false;
        AnsiString S=StGr2->Cells[i][j];
        if(S>0){
             StGr2->Brush->Color=clRed;
             FrmVpl->StGr2->Canvas->Font->Color=clRed;
             StGr2->Canvas->FillRect(Rect);
             StGr2->Canvas->TextOut(Rect.Left,Rect.Top,StGr2->Cells[ACol][ARow]);
        }
        else if(S<0) {
             StGr2->Brush->Color=clGreen;
             FrmVpl->StGr2->Canvas->Font->Color=clGreen;
             StGr2->Canvas->FillRect(Rect);
             StGr2->Canvas->TextOut(Rect.Left,Rect.Top,StGr2->Cells[ACol][ARow]);
        }
        else {
             StGr2->Brush->Color=clBlue;
             FrmVpl->StGr2->Canvas->Font->Color=clBlue;
             StGr2->Canvas->FillRect(Rect);
             StGr2->Canvas->TextOut(Rect.Left,Rect.Top,StGr2->Cells[ACol][ARow]);
        }

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
//Для удобства
TCanvas *a = this->StringGrid1->Canvas;
//Далле необходимо установить стандартные цвета, те что у тебя будут, если условие не выполняется
//цвет как у тебя стоял если бы значение ячейки было бы равно нулю.
a->Brush->Color = clBlue;
//теперь, у нас ячейки бывают трех видов
//1. Фиксированная - это когда стоит свойство fixed gdFixed
//2. Выделенная - когда выделяешь gdSelected
//3. и "Сфокусированная" - это на которой у тебя стоит курсор gdFocused
//за это состояние отвечает переменная State
 
//теперь ставим цвет для фиксированной ячейки
if (State.Contains(gdFixed)) a->Brush->Color = clMoneyGreen;
 
//Так как у нас простое условие, т.е. либо больше нуля, либо меньше тогда будет так
//У меня .ToInt() стоит, ты можешь твой тип поставить например ToDouble.
try
{
    if ((!State.Contains(gdFixed))&&(this->StringGrid1->Cells[ACol][ARow].ToInt()>0)) a->Brush->Color = clRed;
    if ((!State.Contains(gdFixed))&&(this->StringGrid1->Cells[ACol][ARow].ToInt()<0)) a->Brush->Color = clGreen;
}catch(...)
{
    //try Нужен для того что бы если вдруг в твоей яцейки текст окажется, тогда он ее красить не будет
}
 
 
//Все, мы установили устовия расскраски, теперь закрациваем
a->FillRect(Rect);
 
//тут дополнил еще что бы выделение работало
//будет ячейку рамной обводить
if (State.Contains(gdSelected))
{
    a->Pen->Color = clLime;
    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->StringGrid1->Cells[ACol][ARow].t_str(),-1,(TRect*)&r,DT_CENTER);
 
 
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
for (int i=0;i<this->StringGrid1->ColCount;i++)
    for (int j=0;j<this->StringGrid1->RowCount;j++)
        this->StringGrid1->Cells[i][j] = (UnicodeString)Random(100)-50;
}