DBGrid - trocando cor do selecionado

procedure GridDrawColumnCell;

begin

  With Grid do

  begin

    if (State = [gdSelected]) or (State = [gdFocused]) or 

       (State = [gdSelected,gdFocused]) then

    begin

      Canvas.Brush.Color := clYellow;

      Canvas.Font.Color  := clBlack;

      Canvas.FillRect(Rect);

      DefaultDrawDataCell(Rect, Column.Field, State);

    end

  end;

end;