anchor.diff:    end;
   end;
   
  -procedure TKAParser.Calc1(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  +procedure TKAParser.Calc1(out resValue: double; var lexState: TLexState; var lexResult: TLexResult);
   var
     NewDouble : double;
   begin
  
positive.code:   end;
  end;
  
  procedure TKAParser.Calc6(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    NewDouble: double;
    LastToken: TFormulaToken;
  
negative.code:   TKAParserOnGetStrValue = procedure (Sender: TObject; const valueName: string; var StrValue: string; out Successfull : boolean) of Object;
    TKAParserOnGetRangeValuesEvent = procedure (const RangeFunction, Func: string; ValueType: TKAParserValueType; ValuesArray : TmArrayOfVariants;  out Successfull : boolean) of object;
  
    TKAParserOnCalcUserFunction = procedure (Sender: TObject; const Func: string; Parameters: TStringList; out Value: Double; out Successfull : boolean) of object;
    TKAParserOnCalcStrUserFunction = procedure (Sender: TObject; const Func: string; Parameters: TStringList; var Value: string; out Handled: Boolean) of object;
  
  
  