anchor.diff:  begin
     Len := Length(Value) * 2;
     SetLength(Result, Len);
  -  Move(Value[1], Result[0], Len);
  +  if Len > 0 then Move(Value[1], Result[0], Len);
   end;
   
   {$ENDIF}
  
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(Val);
    SetLength(Result, Len);
    if Len > 0 then Move(Val[1], Result[0], Len);
  end;
  
  function BytesOf(const Val: AnsiChar): TBytes;
  