Munda de cor..Grid

Use assim:
If odd(Table1.RecNo) then //pode ser tbm Query1.recNo ou ClientDataSet
begin
DBGrid1.Canvas.Font.Color:= clWhite; //fonte branca
DBGrid1.Canvas.Brush.Color:= clGreen; //linha verde
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack; //fonte preta
DBGrid1.Canvas.Brush.Color:= clWhite; //linha branca
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;


:)