Ver texto en una stringrid coloreada

[richi]

El caso es que tengo un procedimiento que llamo desde destintas zonas del programa para colorear la stringgrid; el problema viene cuando tengo texto introducido en donde e coloreado no me lo muestra. El procedimiento que utilizo es el siguiente:

Código Delphi [-]
procedure form.pintarStringGrid(color : TColor; fila,desde,hasta : integer);
var
  i : integer;
begin
  stringGridPEriodo.Enabled := false;
  StringGridPeriodo.Canvas.brush.Color := color;

  for i:= desde to hasta do
  begin
    StringGridPeriodo.Canvas.FillRect(StringGridPeriodo.CellRect(i,fila));
  end;
  stringGridPEriodo.Enabled := true;
end;

Al procedimiento le paso el color la fila y en esa fila desde donde hasta donde pintar.
Gracias.