Cambiar color por defecto al seleccionar varias celdas de un TStringGrid

[JAI_ME]

Buenas noches tengo un TStringGrid y en el evento OnDrawCell el siguiente codigo

Código Delphi [-]
with SG1.Canvas do begin

  sTexto := Sg1.Cells[ACol,ARow];

    if sTexto <> '' then 
           Brush.Color := $00E1E1FF
    else 
      Brush.Color := clWhite;

end;

pero cuando intento seleccionar varias celdas no me muestra el recuadro azul que indica que celdas estoy seleccionando, si bloqueo la linea
Brush.Color := clWhite; si funciona


como puedo hacer para cambiar el color azul cuando selecciono varias celdas ???