OnGetAxisLabel

if (Sender==Chart1->LeftAxis) LabelText=FloatToStrF(StrToFloat(LabelText)/20, ffFixed,10,2);

//Построение графика
  r=(MAX(znach,n)-MIN(znach,n))/inter;
  for (i=0; i<=inter; i++)
  {
    interval[i]=MIN(znach,n)+r*i;
    ch[i]=0;
  }
  for (i=0;i<n;i++)
  {
    if (znach[i]<=interval[1])
      ch[0]++;
    for (j=1;j<(inter-1);j++)
    {
      if ((znach[i]>interval[j]) && (znach[i]<=interval[j+1]))
      ch[j]++;
    }
    if (znach[i]>interval[inter-1]) ch[inter-1]++;
  }
 //Поделила этот массив на интервалы. Посчитала сколько значений попало в эти интервалы.
 //По частоте и интервалам строю график
   for (i=0; i<=inter;i++)
    Series1->Add(ch[i],interval[i]);

Series1->Add(ch[i],interval[i]);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    const int inter = 20;
    int ch[inter] = // Это твои частоты, вместо подсчета задал их константой
    {
        //
        1, 5, 6, 9, 12, 20, 30, 40, 70, 90,
        90, 70, 40, 30, 20, 12, 9, 6, 5, 1
    };
 
    int max_ch = 90; // Максимум среди частот, у тебя вроде есть MAX для этого
    Chart2->LeftAxis->AxisValuesFormat = "#.###%"; // Выставляем формат левой оси
    for (int i=0; i<inter;i++)
        Series2->Add(100.0 * ch[i] / max_ch, FloatToStr(ch[i])); // И выводим в чарт уже в процентах !!!
}

for (int i=0; i<inter;i++)
        Series2->Add(ch[i] / n, FloatToStr(ch[i]));

#include <Math.hpp>
// ...
    int total = SumInt(ch, inter - 1);
    // У тебя сумма всех значений в ch - это N, я правильно понимаю?
    for(int i = 0; i < inter; i++)
        Series2->Add(100 * (double)ch[i] / total, FloatToStr(ch[i]));