procedure ColoringChanges(TV: TcxGridDBTableView);
  var
    I: Integer;
    J: Integer;
  begin
    for I := 1 to TV.ColumnCount  do
      for J := 2 to TV.ViewData.RecordCount  do
       // Не сильно мудрено???
        if (TV.ViewData.Records[J].Values[TV.Columns[I]] <> TV.ViewData.Records[J-1].Values[TV.Columns[I]]) then
        begin
          .....
        end;
  end;

procedure TfmShowQueryGridDialog.GridDBTableViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  ANextRecordIndex: Integer;
  ACycleChanged: Boolean;
begin
  with TcxGridDBTableView(Sender).DataController do
  begin
     ANextRecordIndex :=  TcxGridDBTableView(Sender).Controller.FindNextRecord(AViewInfo.GridRecord.RecordIndex, true, {false} true,  ACycleChanged);
     if Values[AViewInfo.GridRecord.RecordIndex, AViewInfo.Item.Index] <> Values[ANextRecordIndex,AViewInfo.Item.Index] then
        ACanvas.Font.Color := clRed;
  end;
end;