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.