procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
  var
  a,s,d,i:integer;
  myDate : TDateTime;
//myYear, myMonth, myDay : Word;
begin

  if ARecord = nil then exit;
  if AItem = nil then exit;// эту проверку тоже полезно делать, если используете данный параметр
  if not ARecord.IsData then exit;

           if (AItem.Index>=1) and  (AItem.Index<=d+1)then  begin

            if ARecord.Values[AItem.Index] = 'От' then  AStyle:= cxStyle_ot;
            if ARecord.Values[AItem.Index ] = 'Б' then  AStyle:= cxStyle_B;
            if ARecord.Values[AItem.Index] = 'В' then  AStyle:= cxStyle_V;

            end;