anchor.diff:      procedure yylex (var lexState: TLexState; var lexResult : TLexResult);
       // double
       procedure StartCalculate(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc6(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc5(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc4(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc3(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc2(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure Calc1(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  -    procedure CalcTerm(var resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc6(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc5(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc4(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc3(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc2(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure Calc1(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
  +    procedure CalcTerm(out resValue: double; var lexState: TLexState; var lexResult : TLexResult);
       // string
       procedure StartCalculateStr(var resValue: string; var lexState: TLexState; var lexResult : TLexResult);
       procedure CalculateStrLevel1(var resValue: string; var lexState: TLexState; var lexResult : TLexResult);
  
positive.code:     Calc1(resValue, lexState, lexResult);
  end;
  
  procedure TKAParser.Calc3(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    NewDouble: double;
    LastToken: TFormulaToken;
  
negative.code:   end;
  end;
  
  procedure TKAParser.CalcTerm(out resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    currentIdent: String;
    ParamList: TStringList;
  