anchor.diff:  
   class function RandomData.Address: string;
   begin
  -  Result := Format('%s %d %d %s', [Street, Number(200), Number(50000), City]);
  +  Result := Format('%d, %s %s, %d', [
  +    ((Random(499) + 1) div (Random(9) + 1) + 1),
  +    Street,
  +    City,
  +    Number(50000)
  +  ]);
   end;
   
   class function RandomData.Adjective: string;
  
positive.code:     {$ENDREGION}
  
      {$REGION 'LastNames'}
      LastNames: array [0 .. 765] of string = (
        'Adams',
        'Adamski',
        'Adkins',
  
negative.code:       'Romeo',
        'Rondeau',
        'Ross',
        'Rossi',
        'Roughton',
        'Rouse',
        'Royster',
  