Ho provato a testarlo ma mi segnala 2 warning in corrispondenza delle seguenti istruzioni nella funzione EvalExpr:

codice:
Val(Copy(Expr, LastP, i-LastP), Values[CurVal]);
.....
Val(Copy(Expr, LastP, i-LastP+1), Values[CurVal]);
inoltre non mi disegna la funzione