Установить диапазон значений

oid __fastcall TForm1::Button1Click(TObject *Sender)
{
 
   int y,y1,y2;
   double R,x,x1;
   float f,h;
  signed int  C;
 
Form1->Series1->Active=false;   //избежать мелькания изображения при
Form1->Series1->Clear();        //Для замены предыдущих данных
R=StrToInt(Form1->Edit1->Text); //Получение границ отрезка
C=StrToInt(Form1->Edit2->Text);
 
 
x=10;
y=5;
x1=10;
y1=6;
y2=2;
    h=fabs(C-R)/10;
f = 0,0035* pow( x, y);                     //Начать с левой границы
while (f<=1,5*pow( x1,y1));             //Дойти до правой границы
  {
   Form1->Series1->AddXY(f, 1/sqrt(1+pow(f*R*C,y2)), "", clBlue);   //Точка первого графика
   f+=h;}                   //Перейти к следующей точке
  Form1->Series1->Active=true;      //Отобразить графики
 
}

 int y,y1,y2,R;
   double x,x1;
   float f,h;
   float C;
 
Form1->Series1->Active=false;   //избежать мелькания изображения при
Form1->Series1->Clear();        //Для замены предыдущих данных
R=StrToInt(Form1->Edit1->Text); //Получение границ отрезка
C=StrToFloat(Form1->Edit2->Text);
 
 
x=10;
y=5;
x1=10;
y1=6;
y2=2;
    h=fabs(R-C)/10;
f = 0,035* pow( x, y);                      //Начать с левой границы
while (f<=1,5*pow( x1,y1));             //Дойти до правой границы
  {
   Form1->Series1->AddXY(f, sqrt(1+pow(f*R*C,y2)), "", clBlue); //Точка первого графика
   f+=h;}                   //Перейти к следующей точке
  Form1->Series1->Active=true;      //Отобразить графики
 
}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  int y = 5, y1 = 6, R;
  double x = 10.0, x1 = 10.0, f, h, C;
  R = StrToInt(Edit1->Text);
  C = StrToFloat(Edit2->Text);
  h = fabs(R - C) / 10.0;
  for(f = 0.035 * pow(x, y); f < 1.5 * pow(x1, y1); f += h)
     Series1->Add(1 / sqrt(1 + pow((f * R * C), 2)), "", clBlue);
}