Закрасить строку в TStringGrid

int  NSelRowPrev=-100;
bool mFRows[MAXLines1];       //массив для хранения признака выбранности строки (выбор по нажатию правой кнопки мыши)
unsigned int  CntSelRows;
 
 
//******************************************************************************
void __fastcall TForm1::ParamMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
//******************************************************************************
{//
 
if (Button == mbLeft)  return;
 
//по правому щелчку мыши
if (Button == mbRight)
{
  //определяем номер выделенной строки
  int NColCurr=-100;
  int  NRowCurr=-100;
  Param->MouseToCell(X,Y,NColCurr,NRowCurr);
 
  //.......................
  if (NRowCurr<=0) return;
  //.......................
 
  //сохраняем состояние строки, по которой кликнули правой кнопкой мыши
  mFRows[NRowCurr]=!mFRows[NRowCurr];
 
  //если строка была выделена
  if (mFRows[NRowCurr])
  {//if (mFRows[NRowCurr])
 
    //число выделенных строк пересчитываем
    CntSelRows++;
 
    //shift НЕ использовался - запоминаем предыдущее состояние
    if (!Shift.Contains(ssShift))  NSelRowPrev=NRowCurr;
 
    //shift использовался
    else
    {
      if (NSelRowPrev != NRowCurr)
      {
        int iMin,iMax;
        if (NSelRowPrev<NRowCurr)  {iMin = NSelRowPrev+1;iMax = NRowCurr-1;}
        if (NSelRowPrev>NRowCurr)  {iMin = NRowCurr+1;iMax = NSelRowPrev-1;}
        for (int i=iMin;i<=iMax;i++) mFRows[i]=1;
 
        //число выделенных строк пересчитываем
        CntSelRows = CntSelRows + abs(NSelRowPrev - NRowCurr) -1 ;
      }
    }
 
  }//if (mFRows[NRowCurr])
 
  //если выделение со строки было снято
  else CntSelRows--;
 
 
Param->Invalidate();
Param->OnDrawCell;
}
 
 
//по среднему щелчку мыши
if (Button == mbMiddle)  RemoveAll();
 
}//
 
//******************************************************************************
void __fastcall TForm1::ParamDrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
//******************************************************************************
{//
 
  if (ARow==0) return;
 
  if (mFRows[ARow])
  {
    Param->Canvas->Brush->Color = cl3DLight;
    Param->Canvas->Font->Color  = clBlack;
    Param->Canvas->FillRect(Rect);
    Param->Canvas->TextOut(Rect.Left,Rect.Top,Param->Cells[ACol][ARow]);
  }
 
 
}//
 
//******************************************************************************
void __fastcall TForm1::RemoveAll()
//******************************************************************************
{//
 
for (int i=0;i<MAXLines1;i++)  {mFRows[i]=0;}
Param->Invalidate();
Param->OnDrawCell;
CntSelRows=0;
 
}//