[Страдалецъ]

Ну вот примерно так:

Код:

procedure TForm3.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
 if DBGrid1.DataSource.DataSet.FieldByName('Attribute').AsInteger <> Attribute
 then begin
      if BrushColor = clMoneyGreen
      then BrushColor := clSkyBlue
      else BrushColor := clMoneyGreen;
      Attribute := DBGrid1.DataSource.DataSet.FieldByName('Attribute').AsInteger;
      end;
 DBGrid1.Canvas.Brush.Color := BrushColor;
 DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
 DBGrid1.Canvas.Font.Color := clBlack;
 BrushColor := clMoneyGreen;
end;