Delphi 如何计算字符串表达式呢？

今天工作上遇到一个问题，需要计算 字符串形式的表达式，比如：

var s:string;

begin

   s:='2+4*1.7';

end;

问s等于多少。

我认为这需要一个字符串解析器，把字符串解析成真正的表达式才行。

经过搜索，现成的轮子有：

parser10

JCL中包含的TEvaluator

RemObject中的Pascal Script

等等。