StringGrid Цвет фона пустых ячеек и ячеек с текстом

function TForm1.GetPixColor(ACol,ARow:integer):string;
// определить цвет точки в ячейке
var Pnt:TPoint;
begin
  Pnt:=StringGrid1.CellRect(ACol,ARow).TopLeft;
  result:=ColorToString(StringGrid1.Canvas.Pixels[Pnt.X+3,Pnt.Y+3]);
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  // перерисовываем не фикс-ные ячейки
  if (ARow > 0) and (ACol > 0) then
    begin
      // установка цвета фона для отрисовки пустых ячеек
      if ARow mod 2 = 1 then StringGrid1.Canvas.Brush.Color:=TColor($E1F2E3)
          else StringGrid1.Canvas.Brush.Color:=TColor($E5E5E5);
 
      // блок установки цвета фона по содержимому ячейки. Для простоты: не пустая - желтый
      if StringGrid1.Cells[ACol,ARow] <> '' then StringGrid1.Canvas.Brush.Color:=clYellow;
 
      // непосредственно отрисовка фона
      StringGrid1.Canvas.FillRect(Rect);
 
      // вывод текста ячейки если не пустая
      StringGrid1.Canvas.Font.Color:=clWindowText;
      if StringGrid1.Cells[ACol,ARow] <> '' then
        StringGrid1.Canvas.TextOut(Rect.Left+10,Rect.Top+2,StringGrid1.Cells[ACol, ARow])
    end
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var Pnt:TPoint;
begin
  // выводим начальный фоновый цвет
  PutText('Цвет фоновый - '+GetPixColor(1,1));
 
  // меняем точку в ячейке
  Pnt:=StringGrid1.CellRect(1,1).TopLeft;
  StringGrid1.Canvas.Pixels[Pnt.X+3,Pnt.Y+3]:=clBlack;
  // выводим изменения
  PutText('Цвет измененной точки - '+GetPixColor(1,1));
 
  // вводим текст в ячейку
//  StringGrid1.Cells[1,1]:='Test';
  // проверяем точку
//  PutText('Цвет после ввода текста - '+GetPixColor(1,1));
 
  // 2ой раз меняем точку в ячейке
  StringGrid1.Canvas.Pixels[Pnt.X+3,Pnt.Y+3]:=clBlue;
  // проверяем точку
  PutText('Цвет 2ого изменения - '+GetPixColor(1,1));
end;

  // вводим текст в ячейку
  StringGrid1.Cells[1,1]:='Test';
  // проверяем точку
  PutText('Цвет после ввода текста - '+GetPixColor(1,1));

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
...
 
      // блок установки цвета фона по содержимому ячейки. Для простоты: не пустая - желтый
      if StringGrid1.Cells[ACol,ARow] <> '' then StringGrid1.Canvas.Brush.Color:=clYellow;
...

  // вводим текст в ячейку
  StringGrid1.Cells[1,1]:='Test';
  StringGrid1.Refresh;
  // проверяем точку
  PutText('Цвет после ввода текста - '+GetPixColor(1,1));