//  ColumnEh.OnAdvDrawDataCell event handler
procedure TForm1.DBGridEh1Columns1AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
  var Params: TColCellParamsEh; var Processed: Boolean);
var
  ImageIndices: TIntegerDynArray;
begin
  Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
  ImageIndices := GetImages();
  DrawImages(ImageIndices, ARect);
  Processed := True;
end;

//Get array of image Indices from ImageList1
function TForm1.GetImages(): TIntegerDynArray;
var
  f: TField;
  len: Integer;
begin
  SetLength(Result, 0);
  len := 0;
  f := MemTableEh1.FieldByName('Area');
  if (f.AsInteger > 10000) then
  begin
    SetLength(Result, len+1);
    Result[len] := len;
    len:= len+ 1;
  end;
  if (f.AsInteger > 100000) then
  begin
    SetLength(Result, len+1);
    Result[len] := len;
    len:= len+ 1;
  end;
  if (f.AsInteger > 1000000) then
  begin
    SetLength(Result, len+1);
    Result[len] := len;
    len:= len+ 1;
  end;
  if (f.AsInteger > 10000000) then
  begin
    SetLength(Result, len+1);
    Result[len] := len;
    len:= len+ 1;
  end;
end;

//Draw array of images from ImageIndices array
//ARect - Cell bounds
procedure TForm1.DrawImages(ImageIndices: TIntegerDynArray; const ARect: TRect);
var
  i: Integer;
  pos: TPoint;
  w: Integer;
begin
  pos := ARect.Location;
  w := ImageList1.Width * Length(ImageIndices);
  pos.X := pos.X + (ARect.Width - w) div 2;

  for i := 0 to Length(ImageIndices) - 1 do
  begin
    ImageList1.Draw(DBGridEh1.Canvas, pos.X, pos.y, ImageIndices[i]);
    pos.X := pos.X + ImageList1.Width;
  end;
end;