Mudar a Cor das Linhas de Grade do DBGrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
r: TRect;
begin
{PEGANDO A LOCALIZAÇÃO DA LINHA}
r.Left := StringGrid1.ColWidths[0] + 2;
r.Top := StringGrid1.RowHeights[0];
r.Bottom := StringGrid1.RowHeights[0] * 2;
r.Right := StringGrid1.Width;

//MUDANDO A COR PRA VERMELHO
StringGrid1.Canvas.Brush.Color := clRed;

//PREENCHENDO COM O VERMELHO A LOCALIZAÇÃO DA LINHA INTEIRA
StringGrid1.Canvas.FillRect(r);

//MUDANDO PRA BSCLEAR
StringGrid1.Canvas.Brush.Style := bsClear;

//MUDANDO A COR DA FONTE
StringGrid1.Canvas.Font.Color := clWhite;

//IMPRIMINDO O TEXTO DA CELULA 1,1
//CENTRALIZADO DE CIMA PRA BAIXO
StringGrid1.Canvas.TextOut(r.Left,(r.Top + r.Bottom - 
StringGrid1.Canvas.TextHeight(StringGrid1.Cells[1,1])) div 2,StringGrid1.Cells[1,1]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//PREENCHENDO ALGUMAS CELULAS
StringGrid1.Rows[1].Text := ´teste´;
StringGrid1.Cols[1].Text := ´teste´;
StringGrid1.Cells[1,1] := ´teste´;
end;