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: 
      if bInMethodDef then
      begin
        sMethodDef := sMethodDef + largeblock[i];
  
        if bInParams then
        begin
          if largeblock[i] = ')' then
          begin
            bInParams := False;
          end;
        end
        else
        begin
          if largeblock[i] = '(' then
          begin
            bInParams := True;
          end
          else if largeblock[i] = ';' then
          begin
            bInMethodDef := False;
  
  
negative.code:       ansilargeblock := ansilargeblock + ansiblock;
      end;
  
      if not bInMethodDef then
      begin
        iSkip := Length(ansilargeblock);
  
        {$IFDEF DELPHI2009_UP}
        largeblock := string(ansilargeblock);
        {$ELSE}
        largeblock := ansilargeblock;
        {$ENDIF}
  
        largeblocklowercase := LowerCase(largeblock);
  
  