Alternar colores en dbgrid

[Casimiro Notevi]

Lo de los colores es que no me sirve ese método, sólo puedo usar el típico claro/oscuro, no más.
Sin embargo, lo de la raya sí que está muy bien y funciona perfectamente porque se controla un campo/dato del propio registro, por ejemplo que la línea sea el 1, así no hay problema.
Además el código es mínimo:

Código Delphi [-]
procedure TForm24.gr1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if TDBGrid(Sender).DataSource.DataSet.FieldByName('LINEAASIENTO').AsInteger=1 then
  begin
    gr1.Canvas.Pen.Color:=clNavy;
    gr1.Canvas.Pen.Width:=3;
    gr1.Canvas.MoveTo(Rect.Left, Rect.Top+1);
    gr1.Canvas.LineTo(Rect.Right, Rect.Top+1);
  end;
end;

Por lo que seguramente lo implemento también y en otros grids más que tengo por ahí.

Muchísimas gracias por la ayuda