uses MtxParseExpr; procedure Example; var myParser: TMtxExpression; begin myParser := TMtxExpression.Create; try myParser.Expressions := 'x+y;sqrt(x);x/y'; ShowMessage(IntToStr(myParsers.ExprCount)); // 3 finally myParser.Free; end; end;