anchor.diff:        end;
   
         {$IFDEF DELPHI2009_UP}
  -      if (pp > 2) and not CharInSet(largeblock[pp - 1], [#$0A,#$0D,#$07,#$20]) then
  +      if (pp > 2) and not CharInSet(ansilargeblock[pp - 1], [#$0A,#$0D,#$07,#$20]) then
         {$ELSE}
  -      if (pp > 2) and not (largeblock[pp - 1] in [#$0A,#$0D,#$07,#$20]) then
  +      if (pp > 2) and not (ansilargeblock[pp - 1] in [#$0A,#$0D,#$07,#$20]) then
         {$ENDIF}
         begin
           iSkip := Min(pp + 10, iSkip);
  
positive.code:       ansilargeblock := ansilargeblock + ansiblock;
      end;
  
      {$IFDEF DELPHI2009_UP}
      largeblock := string(ansilargeblock);
      {$ELSE}
      largeblock := ansilargeblock;
      {$ENDIF}
  
      if not bInMethodDef then
      begin
        iSkip := Length(largeblock);
  
        largeblocklowercase := LowerCase(largeblock);
  
  
negative.code:           begin
              if bGetLineNumbers then
              begin
                iMethodLineNumber := TCommonStringFunctions.CountLines(string(ansilargeblock), lfDos, i);
                iMethodDefinitionLineCount := TCommonStringFunctions.CountLines(sMethodDef, lfDos);
  
                fdef.LineNumber := iAnotherLineOffset + iMethodLineNumber - iMethodDefinitionLineCount;
  