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

with Strngrd1 do
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
              if StrToInt(Strngrd1.Cells[i,j])=test then // проверка на правильность введенных                 
                                                                    //данных                                     
                         begin
                         //ShowMessage('верно !');
                          Strngrd1.Canvas.Brush.Color:=green;
                          if ((Col=i)and(Row=j)) then
                         Strngrd1.Canvas.FillRect(Rect);
                         end
 
                   else
                       begin
                        ShowMessage('Ошибка!!!');
                        Strngrd1.Canvas.Brush.Color:=red;
                          if ((Col=i)and(Row=j)) then
                         Strngrd1.Canvas.FillRect(Rect);
                        end;
                   end;
                   end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
const //здесь определяем Ваш цвет. Так же можно использовать цвета по умолчанию.
  clPaleGreen = TColor($CCFFCC);
  clPaleRed = TColor($CCCCFF);
begin
  //Если ячейка получает фокус, то нам надо закрасить её другими цветами
  if (gdFocused in State) then
  begin
    StringGrid1.Canvas.Brush.Color := clBlack;
    StringGrid1.Canvas.Font.Color := clWhite;
  end
  else //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным
    if ACol = 2 then //Вторая колонка будет зелёной , другие - ячейки красными
      StringGrid1.Canvas.Brush.color := clPaleGreen
    else
      StringGrid1.canvas.brush.Color := clPaleRed;
 
  //Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column
  //Естественно это завит от того, есть у Вас title-Row/Columns или нет.
 
  if (ACol > 0) and (ARow > 0) then
  begin
    //Закрашиваем бэкграунд
    StringGrid1.Canvas.FillRect(Rect);
 
    //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д..
    StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;
end;

if StringGrid1.Cells[ACol, ARow] = 'highlight it' then
  StringGrid1.Canvas.Brush.color := clPalered
else
  StringGrid1.canvas.brush.Color := clWhite;