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

void __fastcall gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        p->Canvas->Brush->Color = clBlack;
        if (p->Cells[ACol][ARow] != ' ')
                p->Canvas->FillRect(Rect);
}

void __fastcall gridClick(TObject *Sender)
{
        TStringGrid *p=(TStringGrid *)Sender;
        if (p->Cells[p->Col][p->Row] == '1')
                p->Cells[p->Col][p->Row] = ' ';
         else if (p->Cells[p->Col][p->Row] == '0')
                p->Cells[p->Col][p->Row] = '-1';
        else
                p->Cells[p->Col][p->Row] = '1';
}

void __fastcall gridDrawCell_Black(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        p->Canvas->Brush->Color = clBlack;
        if (p->Cells[ACol][ARow] != ' ')
                p->Canvas->FillRect(Rect);
}

void __fastcall gridDrawCell_Red(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        p->Canvas->Brush->Color = clRed;
        if (p->Cells[ACol][ARow] != '-1')
                p->Canvas->FillRect(Rect);
}

void __fastcall gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        switch(p->Cells[ACol][ARow])
        {
        case '1':p->Canvas->Brush->Color = clRed;
        case '2':p->Canvas->Brush->Color = clGreen;
        case '3':p->Canvas->Brush->Color = clYellow;
        case '4':p->Canvas->Brush->Color = clBlack;
        default:break;
        }
       if (p->Cells[ACol][ARow] != ' ')p->Canvas->FillRect(Rect);
       p->Cells[ACol][ARow]='';
}

void __fastcall TFrm_Main::gridDblClick(TObject *Sender)
{
        ::gridDblClick(Sender);
}

void __fastcall gridDblClick(TObject *Sender)
{
        TStringGrid *p=(TStringGrid *)Sender;
        if (p->Cells[p->Col][p->Row] == '1')
                p->Cells[p->Col][p->Row] = ' ';
        else
                p->Cells[p->Col][p->Row] = '1';
}
 
void __fastcall gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        TStringGrid *p=(TStringGrid *)Sender;
 
        p->Canvas->Brush->Color = clRed;
        if (p->Cells[ACol][ARow] != ' ')
                p->Canvas->FillRect(Rect);
}

void __fastcall gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State);

void __fastcall TFMain::FindDialog1Find(TObject *Sender)
{
        TStringList *FindLst = new TStringList;
        FindLst->Duplicates = dupIgnore;
 
        AnsiString lookat = AnsiLowerCase(FindDialog1->FindText);
 
        for (int i = 1; i < StringGrid1->RowCount; i++)
        {
              for (int j = 0; j < StringGrid1->ColCount; j++)
              {
               if (AnsiLowerCase(StringGrid1->Cells[j][i]).Pos(lookat))
               {
                FindLst->Add(StringGrid1->Rows[i]->CommaText);
               }
              }
        }
}

bool draw_it;
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
if(!draw_it)return;
AnsiString s;
SG1->Canvas->Brush->Color=clRed; //закрасим красным например 
SG1->Canvas->FillRect(Rect);
s=SG1->Cells[ACol][ARow];
SG1->Canvas->Font->Color=clBlack; //текст черный
SG1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,s);
return;
}
 
void TForm1::paint_cell(int coll,int roww)
{
draw_it=true;
StringGrid1DrawCell(this,coll,roww,SG1->CellRect(coll,roww),TGridDrawState() << gdFixed);
draw_it=false;
return;
}

paint_cell(int coll,int roww);

[BCC32 Error] Unit1.cpp(761): E2316 'TForm1::paint_cell(int,int)' is not a member of 'TForm1'

TForm1::paint_cell(int,int) {
...
}

paint_cell(int,int);

TForm1::paint_cell(int,int)

void paint_cell(int coll,int roww)
{
draw_it=true;
Form1->StringGrid2DrawCell(this,coll,roww,Form1->StringGrid2->CellRect(coll,roww),TGridDrawState() << gdFixed);
draw_it=false;
return;
}

void __fastcall TForm1::StringGrid2DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
if(!draw_it)return;
AnsiString s;
StringGrid2->Canvas->Brush->Color=clRed; //закрасим красным например
StringGrid2->Canvas->FillRect(Rect);
s=StringGrid2->Cells[ACol][ARow];
StringGrid2->Canvas->Font->Color=clBlack; //текст черный
StringGrid2->Canvas->TextOut(Rect.Left+2,Rect.Top+2,s);
return;
}

or (j = 1; j < i; j++) {
       ModFy[j] = StrToFloat(StringGrid2->Cells[0][j]);
       ModFx[j] = StrToFloat(StringGrid2->Cells[1][j]);
       if ((Chart2->BottomAxis->Minimum < ModFx[j]) && (Chart2->BottomAxis->Maximum > ModFx[j]) &&
       (Chart2->LeftAxis->Minimum < ModFy[j]) && (Chart2->LeftAxis->Maximum > ModFy[j]))
        {
        [B] paint_cell(1,j);[/B]
         ModFy1[k] = ModFy[j];
         ModFx1[k] = ModFx[j];
         k++;
        }
    }

[BCC32 Error] Unit1.cpp(407): E2297 'this' can only be used within a member function
  Full parser context
    Unit1.cpp(405): parsing: void paint_cell(int,int)
[BCC32 Error] Unit1.cpp(407): E2357 Reference initialized with 'TRect', needs lvalue of type 'TRect'
  Full parser context
    Unit1.cpp(405): parsing: void paint_cell(int,int)
[BCC32 Error] Unit1.cpp(407): E2342 Type mismatch in parameter 'Rect' (wanted 'TRect &', got 'TRect')
  Full parser context
    Unit1.cpp(405): parsing: void paint_cell(int,int)

[BCC32 Error] Unit1.cpp(416): E2316 '_fastcall TForm1::paint_cell(int,int)' is not a member of 'TForm1'

public:
void paint_cell(int coll,int roww);