Запись формулы в функцию

[Roller17]

Здравствуйте! Столкнулся с такой проблемой. В текстовое поле записывается формула. Затем значению функции присваивается записанная ранее формула. Но это у меня зделать не получается.
Подскажите пожалуйста как это зделать. За пример я брал формулу
x^2-2*x.

я навоял такую функцию

Function y1(x:real):real; 
 var s:string;

    begin

      s:=Copy(Form1.formula,5,Length(Form1.formula)-4);  //удаляются        первые 4 символа"y = "
      y1:=StrToFloat(s);

    end;

[Аватар]

StrToFloat преобразует запись числа из символьного вида во внутрикомпьютерное двоичное представление вещественного числа. Преобразование текста 'x^2-2*x' в такой вид равносильно преобразованию в этот вид текста 'Ку-ку Маруся, я Дубровский', т.е. в результате пшик. Ищите компоненты интерпретирующие вычисление такого вида формул или сами пишите интерпретатор