anchor.diff:      property OnResourceDirect: TDirectiveEvent read FOnResourceDirect write SetOnResourceDirect;
       property OnUnDefDirect: TDirectiveEvent read FOnUnDefDirect write SetOnUnDefDirect;
       property AsmCode: Boolean read FAsmCode write FAsmCode;
  -    //property DirectiveParamOrigin: PChar read FDirectiveParamOrigin;
  +    property DirectiveParamOrigin: PChar read FDirectiveParamOrigin;
       property UseDefines: Boolean read FUseDefines write FUseDefines;
       property IncludeHandler: IIncludeHandler read FIncludeHandler write FIncludeHandler;
     end;
  
positive.code: begin
    inherited SetOrigin(NewValue);
    FAheadLex.FOrigin := Self.Origin;
    FAheadLex.Init;
    FAheadLex.Next;
  end;
  
negative.code:   FUseDefines := True;
    FDefines := TStringList.Create;
    FTopDefineRec := nil;
    FUseSharedOrigin := false;
    ClearDefines;
  end;
  
  