anchor.diff:    if Assigned(Bytes) then begin
       Len := Length(Bytes);
       SetLength(Result, Len);
  -    Move(Bytes[0], Result[1], Len);
  +    if Len > 0 then Move(Bytes[0], Result[1], Len);
     end
     else
       Result := '';
  
positive.code:   Temp: string;
  begin
    N := Length(StringArray);
    for I := 0 to N - 1 do begin
      Result[I] := StringArray[I];
    end;
    if N > 1 then begin
      Randomize;
      for I := 0 to N - 1 do begin
  
negative.code: begin
    Len := Length(Value) * 2;
    SetLength(Result, Len);
    if Len > 0 then Move(Value[1], Result[0], Len);
  end;
  
  {$ENDIF}
  