关于TDBGridEh的颜色问题(20分)

我想实现TDbgridEh的第一行白色、第二行绿色、第三行白色、第四行绿色、
第五行白色.....
反正是奇数行为白色，偶数行为绿色。请问如何实现？

procedure TForm1.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if not (gdFixed in State) then
begin
with DBGridEh1.Canvas do
begin
//Please use TADOTable
//if you use TTable, I cann't make sure you will pass.
if (ADOTable1.RecNo mod 2)=0 then
Brush.Color := clGreen
else
Brush.Color:=clWhite;
FillRect(Rect);
Font.Color:=clblack;
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;
end;

接受答案了.