[jhonny]

Quizá te sirva el siguiente ejemplo en el OnDrawCell de tu StringGrid:

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TDrawGrid(Sender) do
  begin
    Canvas.Brush.Color := clYellow;
    Canvas.FillRect(Rect);
  end;
end;