Problema al evaluar una expresión matemática

[JesusG]

Saludos. Estoy buscando un metodo sencillo para evaluar una expresion matematica, por ejemplo, en un formulario con un TLabel y un TButton y añadiendo Math a uses, tengo:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Label1.Caption:=floattostr(23/7+sqrt(2));
end;

Y funciona correctamente. Sin embargo lo que quiero es que el usuario introduzca su propia expresion para envaluar. Añado un TEdit y pongo:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=form1.Edit1.Text;
form1.Label1.Caption:=floattostr(s);
end;

Dandome error. ¿Alguna sugerencia?.
Gracias.

[[marceloalegre]]

Empezado por JesusG

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Label1.Caption:=floattostr(23/7+sqrt(2));
end;

Claro que no funciona, sucede lo siguiente: (voy a comentar tu codigo)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=form1.Edit1.Text; //aqui asignas a una variable string un string... esta correcto, no se si es necesario, pero es correcto.
form1.Label1.Caption:=floattostr(s);//el problema esta aca... ya que floattostr convierte de float a string, y s ya es un string!... donde no necesita conversión. 
end;

Ademas no es tan simple hacer que en el edit se maneje cualquier expresion, ya que aparte de las cuestiones tecnicas, si es usuario escribe mal la expresion no funciona, crea procedimientos/func. con los que quieras realizar en tu programa.


Saludos!

[Neftali [Germán.Estévez]]

Para evaluar una expresión matemática escrita como cadena puedes utilizar alguno de los múltiples evaluadores gratuítos que hay por la red, delphi no puede hacerlo directamente.

Revisa este link.

Aquí tienes algunos ejemplos: 1 y 2.

NOTA: El segundo puedes comprobar en la demo que funciona perfectamente el ejempo que comentas. SOL=4,69992784808738