Tengo un problema en Delphi 10.1 en una aplicación multidispositivo (en Windows). tengo unStringGrid (conectado a una base de datos) y puedo cambiar el color de fondo de la fila, pero el problema es que hay un "relleno" (en gris / plata) entre las celdas.

EnonformCreate Yo defino:

stringgrid1.DefaultDrawing := False;

Este es mi código:

procedure Tlist_form.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
   var aRowColor: TBrush;
begin
  aRowColor := Tbrush.Create(TBrushKind.Solid,TAlphaColors.Alpha);


  if (stringgrid1.Cells[7,row]='1') then 
        aRowColor.Color := TAlphaColors.Green
    else
      aRowColor.Color := TAlphaColors.Red;

    Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);
    Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);

  aRowColor.free;

end; 

En Delphi 6 nunca he tenido este problema y no sé cómo solucionarlo. Gracias.