cor do dbgrid não se mantém - muda de cor toda vez que passo o mouse

Pessoal

	Fiz uma rotina para que o dbgrid mude a cor conforme a condição do meu select. Algo assim no evento OnDrawColumnCell

	 

	      if dtm.ZQPedidoAbertoquantaberta.value=0 then

	       begin

	          DBGPedidos.Canvas.Brush.Color:=clgreen;

	          DBGPedidos.Canvas.FillRect(Rect);

	          DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);

	       end

	         else

	        begin

	         DBGPedidos.Canvas.Brush.Color:= clred;

	         DBGPedidos.Canvas.Font.Color:= clWhite;

	         DBGPedidos.Canvas.FillRect(Rect);

	         DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);

	     end;

	 

	O resultado sai corretamente no DBGrid mas basta passar o mouse por cima que ele muda a cor de verde para vermelho. Alguém já passou por isso e pode me ajudar?

	 

	Obrigado desde já.