Совсем необычная раскраска DBGrid-a

[_SERGEYX_]

Добрый день!
Я знаю как раскрасить ячейки по признаку, столбцы, строки DBGrid-а и иже с ними. А вопрос у меня такой:
Допустим у меня всего одна строка и 31 столбец. Столбцы - это числа месяца. В одну из ячеек ставим Ноль - это значит изделие запущено в производство. В более правую ячейку ставим Единицу (я сделаю проверку, чтобы нельзя было поставить 1 перед 0, это детали) - значит уже изготовлено.
Вопрос: можно ли закрасить ячейки от той где ноль до той где единица (т.е. период) без цикла.
Можно, конечно написать for i:=0 to grid.columns.count и т.п.
Но цикл будет дико тормозить систему. Можно ли как-нибудь нарисовать Rect "одним махом"? Мне что-то в голову ничего не приходит. (наверно, муза отвернулась )

[Sibedir]

Если строка действи одна, то вот это должно работать

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Field.Tag = 1 then
    with DBGrid1.Canvas do begin
      Brush.Color := clMoneyGreen;
      FillRect (Rect);
    end;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  i, j: Integer;
begin
  j := 0;
  with Table1 do
    for i := 0 to Fields.Count - 1 do begin
      if Fields [i].AsString = '0' then j := 1;
      Fields [i].Tag := j;
      if Fields [i].AsString = '1' then j := 0;
    end;
  DBGrid1.Repaint;
end;

[_SERGEYX_]

Можно и так, но как я говорил, цикл будет создавать большие тормоза.
Я решил проблему по-другому. Добавил 2 поля OPENED и CLOSED. Если в какое-то поле ставлю ноль, то в поле OPENED ставлю число месяца, если удаляю его - в поле OPENED ставлю ноль. То же и для поля CLOSED.
И далее без цикла (делал в DBGridEh):

procedure TfrmMain.GridGetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
    if (Column.Index  + 1 <= SampleCLOSED.Value) and
      (Column.Index + 1 >= SampleOPENED.Value)
      then Background := clRed;
end;

Работает очень быстро даже при больших объемах данных.