anchor.diff:        begin
           tempResult.Append(lettersAndDigits
             [Random(Length(lettersAndDigits)) + 1]);
  -        Result := tempResult.ToString;
           Inc(i);
         end;
  +      Result := tempResult.ToString;
       end
       else
       begin
  
positive.code: 
        begin
          data[i] := Byte(RandomRange(32, 127));
  
          Result := TEncoding.ASCII.GetString(data);
  
          Inc(i);
        end;
  
      end;
  
    finally
  
negative.code: 
  begin
    Result := '';
    tempResult := TStringBuilder.Create(size);
    try
      Randomize;
      if (onlyLettersAndDigits) then
  