anchor.diff:    raise TParserException.Create(ComposeErrorString(aErrorCode));
   end;
   
  -procedure TKAParser.StartCalculate(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -begin
  +procedure TKAParser.StartCalculate(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +begin
  +  resValue := 0;
     Calc6(resValue, lexState, lexResult);
     while (lexResult.Token = tkSEMICOLON) do
     begin
  
positive.code: begin
    TempSucc := false;
    if Assigned(FOnCalcUserFunction) then
      FOnCalcUserFunction(Self, funct, ParametersList, Result, TempSucc);
  
    if not TempSucc then
      RaiseError(sFunctionError, funct);
  
negative.code: 
  uses
    Classes, variants, sysutils,
    mArrays;
  
  const
    sInvalidString = 1;
  