procedure TForm1.Grid1GetValue(Sender: TObject; const ACol, ARow: Integer;
  var Value: TValue);
begin
  if Grid1.Columns[ACol] is TGlyphColumn then
    Value := ARow mod ImageList1.Count;
end;