anchor.diff:  function BytesOf(const Val: Pointer; const Len: integer): TBytes;
   begin
     SetLength(Result, Len);
  -  Move(PByte(Val)^, Result[0], Len);
  +  if Len > 0 then Move(PByte(Val)^, Result[0], Len);
   end;
   {$ENDIF}
   
  
positive.code: begin
    Len := Length(Val);
    SetLength(Result, Len);
    Move(Val[1], Result[0], Len);
  end;
  
  function BytesOf(const Val: AnsiChar): TBytes;
  
negative.code:   Temp: string;
  begin
    N := Length(StringArray);
    SetLength(Result, N);
    for I := 0 to N - 1 do Result[I] := StringArray[I];
    if N > 1 then begin
      Randomize;
      for I := 0 to N - 1 do begin
  