Fórum dbgrid zebrado (Linha selecionada) #176394

Gente,
Eu fiz uma dbgrid zebrado, e funcionou muito bem. Só que tem um probleminha que eu não sei se é possível contornar:
Quando eu estou sobre a linha selecionada eu gostaria que mostrasse outro fundo para indicar ao usuario mais claramente qual registro ele está selecionando, como acontece naturalmente quando eu não coloco nada no evento DBGrid1DrawColumnCell.
Meu DgRowSelect = True.
Segue meu zebrado:
if queryboch13res.value mod 2 = 0 then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clskyblue;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);

Se alguém puder me ajudar, eu agradeço.