dbGrid con filas en dos colores

[Iceman]

Hola a todos:
alguien sabe de algun componente o bien como hacer para que en un dbGrid las filas salgan alternadas en dos colores?

Lo que estoy buscando no es que salgan de un color determinado segun una condicion, sino que alternadamente salga uno u otro color. Tampoco me sirve la opcion de usar el RecNo como sale en mensajes anteriores, porque cuando se cambia el ordenamiento deja de funcionar.

Muchas gracias

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
 TRect; Field: TField; State: TGridDrawState);
var
   iRowNumber : Integer;
begin
   with (Sender as TDBGrid), Canvas do begin
      iRowNumber := (Rect.Top + Rect.Bottom) div ((1+Rect.Bottom - Rect.Top)*2);
         if Odd(iRowNumber) then Brush.Color := clYellow
         else Brush.Color := clWhite;
      FillRect(Rect);
      DefaultDrawDataCell(Rect, Field, State);
   end;
end;

Un Saludo.

[Iceman]

Gracias por tu pronta respuesta, pero no funciona. Cuando te mueves con las flechas arriba-abajo, al pasar los limites de la visualizacion las nuevas lineas aparecen siempre en blanco.-