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

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;