Листинг 1

var
   XValues  : Variant;
   ...
   //
   // Создадим вариантный массив значений оси X
   //
   XValues  := VarArrayCreate([0,7], varVariant);
   XValues[0]  := ‘Beverages’;
   XValues[1]  := ‘Condiments’;
   XValues[2]  := ‘Confections’;
   XValues[3]  := ‘Dairy Products’;
   XValues[4]  := ‘Grains & Cereals’;
   XValues[5]  := ‘Meat & Poultry’;
   XValues[6]  := ‘Produce’; 
   XValues[7]  := ‘Seafood’;