Метод хорд c использованием TParser

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "metod_hord.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "sBitBtn"
#pragma link "sButton"
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
float __fastcall f(float x)
{{
        return Form1->Edit5->Text;// здесь мы вводим нашу мат. функцию (pow(x,3)-2*pow(x,2)-6*x-1)
                                                    // но без TParser-а EDIT не поймет что я хочу((
    }
 
}
//---------------------------------------------------------------------------
float __fastcall hord(float m, float n, float e)
{
    while (fabs(n-m)>e)
    {
      m=n-(m-n)*f(n)/(f(n)-f(m));
      n=m-(m-n)*f(m)/(f(m)-f(n));
    }
    return n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float f,a,b,e;
if ((Edit2->Text=="")||(Edit3->Text=="")|| (Edit4->Text=="")|| (Edit5->Text=="")){
   ShowMessage("Попробуй о5!");
}
a=StrToFloat(Edit2->Text);
b=StrToFloat(Edit3->Text);
e=StrToFloat(Edit4->Text);
Edit1->Text=FloatToStrF(hord(a,b,e),ffGeneral, 5, 2);//выводим результат
Edit1->Visible=true;
}
}
//---------------------------------------------------------------------------