anchor.diff:        largeblocklowercase := '';
   
         {$IFDEF DELPHI2009_UP}
  -      if (pc > 2) and not CharInSet(largeblock[pc - 1], [#$0A,#$0D,#$07,#$20]) then
  +      if (pc > 2) and not CharInSet(ansilargeblock[pc - 1], [#$0A,#$0D,#$07,#$20]) then
         {$ELSE}
  -      if (pc > 2) and not (largeblock[pc - 1] in [#$0A,#$0D,#$07,#$20]) then
  +      if (pc > 2) and not (ansilargeblock[pc - 1] in [#$0A,#$0D,#$07,#$20]) then
         {$ENDIF}
         begin
           iSkip := Min(pc + 12, iSkip);
  
positive.code:             sMethodDef := '';
            end;
  
            largeblock := Copy(largeblock, i + 1);
            i := 1;
          end;
        end;
  
negative.code: 
      if i >= Length(ansilargeblock) then
      begin
        iRead := s.Read(ansiblock[1], FBufferSize );
        if iRead < FBufferSize then
        begin
          SetLength(ansiblock,iRead);
  