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