procedure TForm1.Button1Click(Sender: TObject);
var A: Cardinal;
begin
  ADOTable1.First;
  A := GetTickCount;
  while not ADOTable1.eof do begin
    ADOTable1.Next;
    cxGrid1.Update;
  end;
  ShowMessage(IntToStr(GetTickCount-A));
end;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
{34351 мск}//  ACanvas.Brush.Color := ADOTable1.Lookup('IdMaterial',AViewInfo.GridRecord.Values[cxGrid1DBTableView1IdMaterial.Index],'IdUnits')*1000;
{18751 мск}//  ACanvas.Brush.Color :=  AViewInfo.GridRecord.Values[cxGrid1DBTableView1IdUnits.Index]*1000;
end;

procedure TForm1.grd1DBTableView1Column2CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin  // 18365
  Assert(cds2.FindKey([AViewInfo.GridView.DataController.GetRecordId(AViewInfo.GridRecord.RecordIndex)]));
  Acanvas.brush.Color:=cds2IntegerField2.Value;
  ACanvas.Canvas.FillRect(AViewInfo.Bounds);
  ADone:=True;
end;

procedure TForm1.grd2DBTableView1Column3CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin  // 16989
  Acanvas.brush.Color:=AViewInfo.GridRecord.Values[grd2DBTableView1Column2.Index];
  ACanvas.Canvas.FillRect(AViewInfo.Bounds);
  ADone:=True;
end;