Formel ausführen

[Timelesk]

Hi,

ich habe ein wahrscheinlich seltenes Problem (denn über die Suche hab ich nix gefunden):

Der Benutzer kann in einem Edit-Feld, welches nur Zahlen und manche Rechenzeichen erlaubt, eine Formel eingeben.
Diese möchte ich dann ausführen lassen und in der Label1.Caption anzeigen lassen.

Formel: ((5*x)/y)-6

Code:

Delphi-Quellcode:

  formel.Text := StringReplace(formel.Text,'"','^', [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'','', [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'x',soll.text, [RfReplaceall]);
  formel.Text := StringReplace(formel.Text,'y',haben.text, [RfReplaceall]);
  label1.Caption := floattostr(strtofloat(formel.text));

Aber er gibt mir nur zurück, dass der Wert kein Real-Wert ist...
Wie kann ich das Problem lösen?

Vielen Dank