Определение математических функции в Edit (Delphi)

[Michail_140890]

Как сделать ввод математических функций в edit? К примеру X^X+5*sin(x)??? Пожалуйста помогите или дайте ссылку Заранее спасибо

f:real; // значение функции 
 
Edit1.Text:='y_rg-2*x_rg/y_rg+1';
 
f:=StrToFloat(Edit1.Text);