设计一个表格控件,总在这个过程出错,不知道原因出在哪里,高手帮我找找原因?

 procedure TDBDotGrid.GetCellParams(Column: TColumnEh; AFont: TFont;
      var Background: TColor; State: TGridDrawState);
begin
    if Column.UseGridStyle then
    Case FGridStyleIndex of
        1:
        begin
            if not (gdSelected in State) then
            begin
                if SumList.RecNo mod 2 = 0 then
                    Background := $00AAE8EE   //第二种颜色
                else Background := $00D2FAFA; //第一种颜色
            end;
        end;
        2:
        begin
            if not (gdSelected in State) then
            begin
                if SumList.RecNo mod 2 = 0 then
                    Background := $00F7F7F7   //第二种颜色
                else Background := $00FFE7E7; //第一种颜色
            end;
        end;
        3:
        begin
            if not (gdSelected in State) then
            begin
                if SumList.RecNo mod 2 = 0 then
                    Background := clWhite   //第二种颜色
                else Background := $DEF7F7; //第一种颜色
            end;
        end;
    end;
    inherited GetCellParams(Column, AFont, Background, State);
end;