Численно определить четность или нечетность функции на интервале

float a,b,x,h;
Form1->Series1->Active=false;
Form1->Series1->Clear();
 
a=StrToFloat(Form1->Edit1->Text);
b=StrToFloat(Form1->Edit2->Text);
 
h=fabs(b-a)/100;                //Расчет шага
x=a;                        //Начать с левой границы
while (x<=b)                //Дойти до правой границы
  {
 
   Form1->Series1->AddXY(x,x*2 , "", clRed);
   x+=h;}
{
}
Form1->Series1->Active=true;        //Отобразить графики
 Label2->Caption=FloatToStr(S);

{
float a,b,x,h,S,n,i,k,x1,D;
 
a=StrToFloat(Form1->Edit1->Text);
{
 
 if (a>0) {ShowMessage("Функция четная");return;}
 if (a<0) {ShowMessage("Функция нечетная");return;}
   else{ShowMessage("Это полный капут"); return;}
}
}

double func (double x)
{
  return x * x;
}
//---------------------------------------------------------------------------
String is_func_even_or_odd (Byte even_or_odd)
{
  switch (even_or_odd)
  {
    case 2  : return "функция четная";
    case 1  : return "функция нечетная";
    default : return "функция ни четная, ни нечетная";
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  double x = 5, step = 0.1, i = x - step;
  Byte temp_even_or_odd = func(x) == -func(-x) ? 1 : func(x) == func(-x) ? 2 : 0, even_or_odd = temp_even_or_odd;
  bool is_sign_changed = even_or_odd ? 0 : 1;
 
  while (i > 0 && !is_sign_changed)
  {
    even_or_odd = func(i) == -func(-i) ? 1 : func(i) == func(-i) ? 2 : 0;
    is_sign_changed = (!even_or_odd || even_or_odd != temp_even_or_odd) ? 1 : 0;
    i -= step;
  }
 
  ShowMessage(is_func_even_or_odd(even_or_odd));
}