anchor.diff:    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; var Value: Double; 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;
   
   
  
positive.code:   end;
  end;
  
  procedure TKAParser.Calc1(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    NewDouble : double;
  begin
  
negative.code:   end;
  end;
  
  procedure TKAParser.CalcTerm(out resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    currentIdent: String;
    ParamList: TStringList;
  